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ABSTRACT 


This thesis focuses on the design and implementation of a new interface editor for 
the Computer-Aided Prototyping System (CAPS), which de-couples the user interface 
from the real-time prototype. Using this design, a CAPS user creates a prototype with an 
interface development tool and a Prototyping System Description Language (PSDL) 
editor. This real-time prototype executes on two processors using a client/server 
architecture; the user interface executes on a client, and the real-time PSDL application 
executes on a server. In addition, this thesis includes demonstrations, with source code, 
which implement the design. The demonstrations show that Java development tools can 
be used to create a high-quality user interface for a PSDL application. A _ socket 
connection was used to implement the client/server communication. The demonstrations 
were successful, but the socket programming model is too primitive for the new design. 
Therefore, a high-level client/server architecture, such as the Common Object Resource 


Broker Architecture (CORBA), is required for future development of the design. 
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I. INTRODUCTION 


A. GENERAL 


In the development of software applications, the user interface software is often 
complex, large, and difficult to design. The user interface is the aspect of a computer 
program that has the most direct contact with the user. Likewise, the design of user 
interfaces has become an important part of the Computer-Aided Prototyping System 
(CAPS). CAPS is a collection of engineering tools, which are used to design real-time 
systems. A CAPS user enters specifications using the Prototyping System Description 
Language (PSDL). To complete the prototype, the user designs a user interface with the 
CAPS interface editor. Finally, the PSDL is translated into Ada; the Ada is linked with 
the user interface; and the prototype application is executed. 

CAPS is an evolving research project, and many of its components are still under 
development. The user interface development tools of CAPS need to be revised. For 
instance, the current version of CAPS is only fully functional on a Sun Microsystems 
workstation running SunOS UNIX. Currently, the CAPS interface editor is Century 
Computing’s Transportable Applications Environment (TAE). TAE is only available for a 
few platforms, and it has limited capabilities. In addition, the CAPS user interface, wntten 


in Motif, is not easily ported to other platforms. 


B. PROBLEM STATEMENT 


A CAPS designer uses the prototyping process to create an application. PSDL is 
used to express the specifications of the application. Next, the CAPS interface editor can 
be used to create a prototype user interface. Unfortunately, the current interface editor does 
have the support and functionality that 1s required. This thesis focuses on creating a new 


design for linking a user interface with a PSDL application. In addition, this thesis 


evaluates user interface development tools, which could be used to increase the 


functionality, portability, and versatility of CAPS. 


GF SCOPE 


The scope of this work was originally intended to integrate a commercial user 
interface development tool into CAPS. As work on this thesis progressed, it became clear 
that a new design for linking the user interface with the prototype was required. This 
design is based upon a client/server architecture. In addition, two demonstrations that use 


the new design are included. 


D. ORGANIZATION OF THESIS 


Chapter II contains background information about CAPS, user interface 
development tools, and supporting documentation. Chapter III presents the design process 
and results. Chapter IV presents the implementation of the new design. Chapter V 
contains demonstrations of the new design. Chapter VI provides the conclusion and a 
discussion of future research. Appendix A contains evaluations of user interface 


development tools. 


Il. BACKGROUND 


A. COMPUTER-AIDED PROTOTYPING SYSTEM 


The Computer-Aided Prototyping System (CAPS) is a software engineering tool 
for developing prototypes of real-time systems [Ref. 1]. CAPS was designed to allow a 
user to build software specifications and make them executable. In addition, CAPS can be 
used for requirements analysis, evaluation of models, and designing large-embedded 
systems. CAPS promotes the rapid prototyping life cycle (Figure 1). Rapid prototyping 
is an alternative paradigm for software development. By using the prototyping process, a 
user can validate system requirements early in the project’s life cycle. In addition, CAPS 


includes tools for software reuse and evolution. [Ref. 2] 
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Figure 1. The Rapid Prototyping Life Cycle “From Ref. [7]” 
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Goals 


A CAPS user specifies relationships, data flow, and constraints between 
software objects. These specifications are expressed in the Prototyping System 
Description Language (PSDL). The user initially works at a high level of abstraction, 


breaking down the objects into lower levels of abstraction. At the lowest levels, existing 


code from a software library is used to implement the object. Alternatively, a high-level 
language, such as Ada, can be used to implement the object. The papers [Ref. 3], [Ref. 4], 
[Ref. 5], [Ref. 6], and [Ref. 7] provide more information about CAPS. 


jE CAPS Components 


CAPS is a development environment consisting of tools linked by a user interface 
(Figure 2). The main sections of CAPS include: editors, execution support, software 
database, and project control. The editors are used to implement the software design. 
Execution support is for software translation, real-time scheduling, and compilation. The 
software database is intended for software storage and reuse. Project control contains 
tools for software evolution, such as revision control, merging of software versions, and 


project planning. [Ref. 8] 


72, Prototyping System Description Language 


A CAPS user can input software specifications via the Prototyping System 
Descnption Language (PSDL). PSDL is a text-based language designed to express 
specifications of real-time systems. PSDL has only two kinds of components: operators 
and types. PSDL is based on a graph model of edges and vertices (Figure 3). The edges 
represent streams of data flow from one operator to another. The streams are instances of 
types. The vertices represent software operators. The operators can either be sporadic or 
periodic. The operators may have associated timing constraints. An example timing 
constraint 1s Maximum Execution Time (MET). In PSDL, the MET of an operator must 
not be exceeded, otherwise a timing error will be displayed. In addition, the operators may 
also have control constraints. Control constraints for a periodic operator include: Finish 
Within (FW) and Period. (Ref. 3] 

PSDL supports the concept of program abstraction. The PSDL operators can either 


be composite or atomic. An atomic operator is implemented in a standard programming 


language such as Ada. A composite operator can be decomposed into a sub-layer 


containing operators and streams. [Ref. 3] 
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Figure 2. CAPS and Graph Editor 





Operator 2 
MET: Isec 







Stream C 





Stream D 
Stream A 






Operator | 
MET: 100ms 





Stream B 


Figure 3. PSDL Graph 


3. Monitoring PSDL Execution 


By using PSDL, a CAPS user can create a prototype application. In most cases, a 
CAPS user must be able to monitor the prototype’s execution. Even if the prototype is 
destined to be an embedded application without a Graphical User Interface (GUI), the user 
may require a GUI to evaluate the prototype. Alternatively, a user may also require a GUI 
to emulate an external environment. 

CAPS has built-in diagnostics, which monitor a prototype’s execution. 
Additionally, CAPS monitors the execution times of the operators. The user will be 
notified if timing constraints are violated. CAPS pmnnts data-stream errors and exceptions 
during the execution of the prototype. 

In addition to diagnostic output, a CAPS user may wish to observe data values, 
provide input, and observe simulations. A user can add simple pnnt statements to monitor 
execution of a PSDL application. This is traditionally done by adding Ada pmnnt 


statements to the atomic operator’s implementation. 


4. Interface Editor 


The interface editor is a GUI development tool designed to help the developer 


create high-quality user interfaces 1n a short period of time. If a CAPS user requires more 


than just simple print statements in the prototype application, he/she can use the CAPS 
interface editor to design a graphical user interface prototype (GU/-prototype). The GUI- 
prototype allows a user to display and input information in a window-based environment. 
In many real-time embedded applications, the GUI-prototype is only required for analysis. 
In most cases, the GUI-prototype does not have timing constraints. It is important that the 
GUlI-prototype not interfere with the real-time execution of the prototype application. 


(Ref. 8][Ref. 9] 


5. CAPS Release 1.1 Interface Editor: TAE 


CAPS Version 1.1 currently incorporates Century Computing’s TAE as the 
interface editor [Ref. 8][Ref. 10]. TAE allows a user to quickly create X-Widows/Motif 
based GUl-prototypes. TAE generates C or Ada program code. To create a prototype 
application, the TAE-Ada code 1s linked with translated PSDL. 

TAE has some very useful features, including a GUI builder. In addition, the TAE 
resource file allows widgets to be interchanged without recompiling the entire application. 
Also, TAE allows the building of high-level reusable components. TAE has been 
successfully integrated, documented, tested, and demonstrated with the CAPS system. 

However, TAE has drawbacks with respect to CAPS. TAE 1s expensive to 
support, license, and to include in the release of CAPS. In addition, TAE 1s not platform 
independent. Also, TAE does not work with all versions of UNIX. Most importantly, the 
current integration of TAE alters the TAE event manager. TAE is linked with a prototype 
application by removing the infinite loop from the TAE event manager. As a result, the 
prototype application is responsible for polling the TAE widgets. This design can make 
the prototype application sluggish to user input and slow when displaying data. 

For information on how to link in TAE and PSDL consult [Ref. 8]. For 


information on how to use TAE, consult [Ref. 10]. 


B. GUI DEVELOPMENT TOOLS 


Graphical User Interface (GUI) design is a field in computer science that has been 
changing rapidly in the last ten years. Window-based operating systems have allowed 
applications to have sophisticated user interfaces. Unfortunately, user interface software is 
often complex, large, and difficult to program. Traditionally, programmers have used 
toolkits to develop GUIs. The toolkits use the functionality of the platform’s windowing 
and operating system. Fortunately, new software development tools are now available to 
aid the software designer. A GUI development tool is defined as software to aid in the 
creation of graphical user interfaces. Most GUI development tools are based on toolkits to 
achieve their look-and-feel. A few development tools do not make direct calls to the 
standard toolkits, but emulate the look-and-feel of the toolkits. Figure 4 shows the 


layering of GUI software. 


Application 
GUI Development Tools 
GUI Toolkits 


Windowing System 
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Figure 4. Components of GUI Software “After Ref. [11]” 





The software designer must decide whether to use a GUI development tool or 
program manually with just the toolkit branes. The decision to program with GUI 
development tools 1s better than manual coding in several ways. For instance, most tools 
support prototyping, reuse, and code consistency. In contrast, the drawbacks of tools 
could include: added complexity, a higher learning curve, added expense, and performance 
penalties. [Ref. 12] 

Object onented design and coding has become a fundamental part of most GUI 


development tools. Most GUI development tools incorporate abstraction and 


encapsulation in their design. For example, a software developer may not care to 
understand the inner functionality of a widget, but he/she may just need to know the 
available methods for the widget. 

The GUI development tools can be grouped by the languages supported. 
Altematively, the tools can also be grouped by the platforms supported. The following 
paragraphs divide the tools based on functionality. However, many of the commercial 


tools do not fit into just one category. [Ref. 12] 


1. GUI Toolkits 


A GUI toolkit is a library of widgets that can be used to develop user interfaces. 
Typical widgets include: buttons, sliders, text-fields, and canvases. Some toolkits contain 
high-level widgets, such as pop-up dialog boxes, which aid the developer in creating 
common interfaces. The use of high-level widgets maintains a consistent look-and-feel 
across different applications. Motif and OpenLook are examples of X-Windows toolkits. 
An example of a platform independent toolkit 1s Artificial Intelligence Applications 


Institute’s wx Windows [Ref. 13]. It is a free-of-charge library for C++. 


2 GUI Builders 


Usually a GUI development product contains a GUI builder to construct and edit 
the interface. Most GUI builders allow the designer to quickly create an interface in a 
What You See Is What You Get (WYSIWYG) mode. A GUI builder allows the user to 
easily add, delete, and replace widgets. In many cases, a GUI builder can be used by a 
person with little programming experience. In the prototyping process, the ability to 
create GUIs in a short period of time is very important. The GUI builders available today 


vary in quality, ease of use, and training required. 


3% User Interface Management Systems 


A User Interface Management System (UIMS) adds functionality to the GUI, 
without the user having to program in a high-level language. To achieve this 
functionality, some UIMS include high-level scripting languages, which add behavior to 
the GUI. (Ref. 14]. Open Software Associates’ OpenUI [Ref. 15] and Aonix’s Teleuse 
(Ref. 16] are examples of UIMSs. 


4. Analysis, Plotting, Graphics, and Visualization 


Some GUI tools contain graphics and 2D-3D visualization tools. Other tools may 
allow the user to analyze and plot technical data in generic formats. Visual Numerics PV- 
WAVE [Ref. 17] and Mathworks’ Matlab [Ref. 18] are examples. Some tools support 
real-time analysis of data. DataViews Corporation’s DataViews is an example of this kind 


of tool (Ref. 19]. 


5. Application Development Environments 


Application development environments contain a wide range of tools, in addition 
to the GUI tools. These products contain tools to aid in the full range of software 
development. These tools could include: group-ware, code-analysis, debugging, evolution 
control, and real-time control. Visix’s Galaxy [Ref. 20] and Sun Microsystem’s Visual 


Workshop [Ref. 21] are examples of application development environments. 

6. Platform Independent Graphical User Interface 

A Platform Independent Graphical User Interface (PIGUI) is defined as a software 
library that supports at least two different operating systems. [Ref. 22] A PIGUI allows a 


developer to create one version of code that runs on multiple platforms. A PIGUI will 
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hopefully decrease the amount of total development time for a project supporting multiple 
platforms. The PIGUI can either preserve the native look-and-feel of the target platform 
or maintain a consistent look-and-feel across platforms. 

There are two types of PIGUIs. The PIGUI can link to the windowing toolkit on 
the target machine. XVT Softwares’s XVT is an example of this kind of PIGUI. [Ref. 23] 
Secondly, a PIGUI can re-implement the widgets for each target platform. Visix’s Galaxy 
is an example of this type. [Ref. 20] The extra overhead of PIGUIs will generally slow 
down the execution of the application. The supported languages for PIGUIs include C, 


C+, Ada, Java, and others, but the most predominate is C++. [Ref. 22] 


C. DE-COUPLING OF THE GUI 


GUI complexity has increased rapidly in the last few years. Users are requiring 
well-planned and sophisticated GUIs. The computer applications of the 1960’s and 1970’s 
had simple user interfaces with very little operator involvement. These early computer 
programs were mostly one-tier applications. A tier is a component of an application that 
is bound through external interfaces to other modules of the application [Ref. 24]. One- 
tier applications include all the functionality in one program. This functionality can 
include: presentation management, program rules code, and database access (Figure 5). 
One-tier applications have the advantage of being easy to design, setup, and maintain. On 
the other hand, one-tier applications are not easily scaleable and have inadequate 


performance at high volume. [Ref. 25] 
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Figure 5. One Tier Application 


iL 


The recent development of client/server middleware and Database Management 
Systems (DBMSs) allowed the developer to separate the database code from the rest of the 
application. Usually, client/server computing involves two or more computers distributing 
tasks appropriate to each computer to complete the application. Client/Server computing 
has been widely used in database systems. Figure 6 shows a DMBS task communicating 


with a database. The DBMS 1s de-coupled from the rest of the application. [Ref. 15] 
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Program rules code 





DBMS 






Database access 


Figure 6. Two-tier Client/Server Application 


The separation of the GUI from the application code has mirrored the de-coupling 
of DBMSs [Ref. 15]. In recent years, the GUI has become the most complex part of many 
applications. A 1992 study found that an average of 48% of an application code 1s 
devoted to the user interface, and about 50% of the implementation time is devoted to the 
user interface [Ref. 12]. In many software designs the GUI is de-coupled from the rest of 
the application. Figure 7 shows a three-tier application; the GUI controls the display, 
handles user input, and requests services from other tiers of the application. 

Multiple-tiered computing has also distnbuted the tasks of an application to many 
remote sites. Distnbuted applications use client/server protocols to allow the client 
application to communicate with a server computer system. Distributed computing makes 


the sharing of data and processor resources possible. 
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Client/server computing has advantages and disadvantages. By separating an 
application into multiple tiers and incorporating the client/server model, it is modularized; 
reuse 1S promoted; and the computing load is distributed [Ref. 24]. Even if a client/server 
application is run on one CPU, it retains the benefits of modularity and reuse. On the 
other hand, a disadvantage of client/server computing is communication complexity. The 
communication protocols can add CPU load to the design. Also, client/server systems are 


harder to setup and design. [Ref. 26] 
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Figure 7. Three-Tier Software Design: Separation of GUI and DBMS 


D. EVALUATION OF GUI TOOLS 


The number of commercial and public GUI development tools is large and is 
growing rapidly. The GUI tools vary in complexity, price, quality, programming language 
support, platform support, and adherence to standards. The following issues were 
considered in the evaluation of GUI development tools: 

Type of Tool: toolkit, GUI builder, UIMS, development environment, ... 


Toolkits supported: Openlook, Motif, Java, ... 
Platform independence 


Platform support 
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. Operating system support 


’ Cost: initial purchase, maintenance 
e Level of vendor support 
y Future support of tools 


” Language Support - Ada, C, C++, Java, ..... 
o GUI builder availability 


¥ Compliance to standards 

2 CAPS integration complexity 
® Ease of use, learning curve 

2 Ease of installation 

e Documentation 

v Complexity 

° Prototyping features 

2 Visualization tools 


° Plotting and graphics 

, Additional tools: maketool, evolution control, debugging, group-ware, ..... 

Appendix A contains evaluations of GUI development tools and _ toolkits. 
Additional information about these and other tools can be found in the papers [Ref. 22] 


and [Ref. 25]. 


II. DESIGN OF A CAPS INTERFACE EDITOR 


A. DESIGN PROCESS 


As mentioned in the introduction, this thesis focuses on the development of a new 
interface editor for CAPS. The first step 1s determining the purpose of the work. The next 
step 1s to evaluate the current CAPS’ programming environment and determine the 
assumptions, goals, and constraints for a new design. Since CAPS is a group effort, this 


thesis must maintain consistency with the previously developed applications. 


ie Purpose 


The purpose of the CAPS interface editor is to allow a CAPS user to create a GUI- 
prototype for a prototype application. In addition, the GUI development tools could be 
used to port the CAPS tools, such as Graph Editor (GE), to other platforms. 


2 Assumptions 


1. The CAPS user will be familiar with the capabilities of the 
hardware/software platform. 

2. The CAPS user will have knowledge of computer window systems. 

3. The CAPS user will be familiar with CAPS, PSDL, and the chosen 
programming language. 


3. Goals/Constraints 


1. Goals for an Interface Editor 


1.1 The interface editor must integrate into the existing version of CAPS. 

1.2 The interface editor must run on a variety of platforms and operating 
systems besides SunOS UNIX. 

1.3 The GUI tools’ licensing costs should be kept to a minimum. 

1.4 The execution of a CAPS prototype should not be adversely effected by 
the GUI repaint and input events. 
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1.5 The interface editor must be easy to use and be intuitive to a new user. 
1.6 The interface editor should contain a variety of high-level widgets to 
aid in the development of user interfaces. 

1.7 The interface editor should contain a GUI builder tool. 

1.6.1 Using the GUI builder, the interface widgets can be added, 

deleted, and replaced. 

1.6.2 The GUI builder should be able to create high-level widgets. 
1.7 The interface editor should require little training. 
1.8 The interface editor should be easy to use. 
1.9 The GUI-prototype may or may not be part of the static schedule. 


tO 


Constraints 

2.1 The GUI integration will be incorporated into CAPS Version 1.1. 

2.2 The GUI integration will be developed on a Sun Microsystems Sparc- 
10 running SunOS 4.1.4. 


B. DESIGN RESULTS - GUI-CLIENT / PSDL-SERVER 


When using CAPS, the GUI-prototype is for analysis of design, displaying data, 
and user interaction with the PSDL application. Alternatively, a CAPS designer may want 
the GUI-prototype to emulate an external environment. The GUI-prototype may not have 
real-time constraints or be required in a final embedded system, but it will require CPU 
resources. In this case, it is important that the GUI-prototype not interfere with the real- 
time execution of prototype application. 

As a result, the new design de-couples the GUI-prototype from the rest of the 
prototype. The new design contains components from a multi-tier client/server 
architecture. The new design creates a GUI/-client that communicates with a PSDL-server. 
A GUI-client is defined as a GUI-prototype, which is de-coupled from the PSDL and 
executes on a client processor. A PSDL-server is a PSDL application, without a GUI, 
which executes on a server processor. With this design, a user can create the GUI-client 
with any programming language and GUI development tools. The client/server 
architecture allows the GUI-client to be located on a local CPU, while the PSDL-server is 
running on a remote CPU (Figure 8). The GUI-client event model can be retained by 


running the PSDL-server on a different CPU. Also, the real-time schedule of the PSDL- 
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server is not affected by the GUI-client. In addition, the design allows the GUI-client to 
be compatible with existing CAPS Version 1.1 software. 
The client/server communication is possible with a variety of middleware 


solutions. The simplest middleware solution is sockets. 








CPU 


. GUlI-client AP] 





client/server communications 


PSDL-Server 


(Real-time Application) 


Figure 8. Multiple CPUs CAPS Client/Server 


Altematively, the client/server design could be implemented on one CPU if the 
processing of the GUlI-client is taken into account. For this purpose, a prototype 
application could be run on one CPU by using synchronous communications between the 
GUlI-client and the PSDL-server as shown in Figure 9. As a result, the synchronous 
communications could prevent the GUlI-client from taking CPU resources during the 
execution of the PSDL-server. 

Threads could be used to implement the one-CPU design. The first thread could 
execute the PSDL-server, while the second thread handles the GUI-client dunmng non- 
cntical times. Also, a single workstation with multiple CPUs could be evaluated. 

Problems with the client/server design include: increased overhead and network 


traffic. A dedicated network will minimize the amount of network traffic. Another 


17 





problem with a CAPS client/server design is the added complexity in the overall CAPS 


system. 


Single CPU 


client/server 
synchronous communications 


PSDL-server 


(real-time application) 





Figure 9. One CPU CAPS Client/Server 
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IV. IMPLEMENTATION CONSIDERATIONS 


A. SELECTION OF GUI TOOLS 


I spent approximately six months evaluating and selecting GUI development tools. 
There are over a hundred commercial tools available. In addition, many universities have 
departments that are doing GUI research, and they offer their GUI development tools free- 
of-charge. Appendix A describes the evaluated tools. The following tools are considered 


as possible choices for integration in CAPS. 


1. Fresco 


Fresco is an object-oriented development toolkit for the development of user 
interfaces[Ref. 27]. Fresco is a design evolution from Stanford University’s Interviews 
toolkit. Fresco was developed at Fujitsu’s Faslab in conjunction with the X-Consortium. 
The Opengroup’s X-Windows11-V6 (Broadway) contains a sample implementation of 
Fresco. [ Ref. 28] 

Unfortunately, Faslab discontinued support and development work on Fresco in 
late 1996. Also, the software community has failed to widely use Fresco. For these 


reasons Fresco was not integrated into CAPS. 


ap Java Development Kit 


The Java programming language, developed by Sun Microsystems, 1s being hyped 
as a replacement for C and C++. The Java programming language is becoming the 
programming language of choice for many internet and standalone applications [Ref. 
29)[Ref. 30]. Java is not a GUI development tool, but only a language and toolkit. 
Fortunately, many vendors are now selling complete GUI development environments for 


Java. Additionally, many traditional Motif development tools are now supporting Java. 


|g, 


Java is an object-oriented, distributed, interpreted, secure, platform-independent, 
and multithreaded programming language. Unlike most languages, Java has automatic 
garbage collection. Java has client/server protocols included in the language’s API. In 
addition, Java has a built-in Abstract Window Toolkit (AWT). The AWT can be 
considered a PIGUI because it runs on mulitple platforms without program modification. 
The Java AWT also supports the native look-and-feel of the target platform. 

Consequently, many universities are now offering Java as the introductory 
programming language instead of C++. Appendix A contains more information about the 
Java programming language and development tools. 

A GUlI-client written in Java would allow the interface to run on almost any 
platform and communicate with a PSDL-server. Java was selected to test integration with 


CAPS. 


3, Visual Workshop / X-Designer 


Sun Microsystems’ Visual Workshop and Imperial Software Technology’s (IST) 
X-Designer are X-Windows/Motif tools for UNIX platforms. Visual Workshop 
incorporates IST’s GUI builder (X-Designer) into its product. Both tools provide about 
the same functionality. The tools create Motif X-Windows code written in C and C++. 
Ada95 can be generated with OC-Systems’ XDA attachment. Visual Workshop was also 
sclected to test integration with CAPS. [Ref. 21][Ref. 31] 


B. SELECTION OF CLIENT/SERVER MIDDLEWARE 
The number of techniques for implementing client/server middleware ts very large. 


Many vendors are trying to Sell their products and create standards. The products include: 


Sockets, CORBA, CGI, Netscape’s Caffeine, Java-RMI, and Microsoft's DCOM. 


20 


1. Sockets 


A socket is the basic protocol for client/server communication over TCP/IP stacks. 
Sockets were originally introduced in 1981 for UNIX BSD 4.2. Sockets are available on 
almost every operating system. Sockets are available in several forms: datagram, stream, 
and raw. The most common socket API is the Berkley UNIX C protocol. Sockets can 
also be used for communication on a single computer. Figure 10 shows a typical sequence 
for establishing a client/server connection. Sockets are the basis for most higher level 
client/server middleware. The socket programming model is quite primitive, but it is very 
fast and a well-known standard. Sockets were implemented and evaluated as a possible 


middleware between the PSDL-server and the GUI-client. [Ref. 32][Ref. 33] 


1 


socket() 

bindQ 

listen() Begin thread 
accept() /* wait for request */ ae 
recvfrom() 
send() 
close() 


Loop for next request 


Client 


socket() 

connect() 

sendto()  /* write data */ 
recvfrom() /* read data */ 
close() 





Figure 10. Client/Server Scenario 


2. Common Object Request Broker Architecture (CORBA) 


CORBA is a middleware project being developed by the Object Management 


Group (OMB) consortium, consisting of over 700 companies. The notable exception to 


2) 


this group of companies is Microsoft, which has a competing product called the 
Distributed Component Object Model (DCOM). CORBA could replace all other 
implementations of client/server middleware. In CORBA client/server computing, objects 
cooperate over the network as opposed to cooperating processes. [Ref. 32] Specifications 
for CORBA objects are written with the Interface Definition Language (IDL). IDL 
provides operating system and programming language interfaces to other services on the 
CORBA bus. CORBA allows almost any programming language to communicate over a 


network as show in Figure 11. 


Object Resource Broker (ORB) 


Figure 11. CORBA 


PSDL-SERVER - SOCKET — GUI-CLIENT 


In this implementation, A GUI-client, written in Java or Motif, communicates with 
a PSDL-server by using TCP/IP sockets. Figure 12 shows the implementation of the 
design. Demonstrations of the implementation are described in the next chapter. The 
source code for the demonstrations 1s in Appendix B. 

The PSDL Ada atomic operators bind to a C module that implements the server 
side of the socket connection. The server socket is written is C because of the difficulty in 


implementing sockets with the VADS Ada83 compiler. 


eZ 


A protocol is established for passing a data structure between the GUlI-client and 
the PSDL-server. An example communication data structure is shown below: 


struct CapsData { 
char command number; 
int 11 
int 12; 
char buffer[SIZE]; 
} 

At present, the communications data structure is modified for each new 
application. A more generic data structure should be designed to work with all prototype 
applications. The client/server communications in the demonstrations are synchronous. 
Asynchronous communication may also be used, but care must be taken to avoid data-loss 


or deadlocks. The implementations are multithreaded. One thread in the GUI-client is 


devoted to the socket communication. 








client/server 
socket communications 





PSDL-server 


(real-time application) 


Figure 12. CAPS-Socket-GUI 
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1; Java GUI-client 


The GUI-client was implemented using the Java programming language. The Java 
GUl-client can be created with the Java development kit or designed with development 
tools, such as Symantec’s Visual Café [Ref. 34]. The Java GUI-client can either be a 
standalone application or run as an applet in a network browser. The Java implementation 
is multithreaded. Unfortunately, programming Java threads can be difficult. The Thread 
Scheduling Model, which 1s platform dependent, determines the thread that will be running 
at any given time. Some operating systems use preemptive scheduling and others use time 
slicing. Consequently, the programmer must carefully design the application so that it 1s 


still platform independent. The code for a Java implementation is in Appendix B. 


pa Motif GUI-client 


Another GUI-client was implemented in Motif using Visual Workshop (Version 
3.) fora Sun Microsystems’ workstation. The GUI-client is also multithreaded. The code 


for a Motif implementation 1s included in Appendix B. 


D. PSDL-SERVER — CORBA —- GUI-CLIENT 


CORBA has the potential of making middleware transparent to the application 
programmer. In this thesis, the CORBA middleware was not fully implemented. A 
CORBA interface is wntten in IDL. An example IDL interface between the PSDL-server 


and the GUI-client is as follows: 


// TDL 

interface Capsdata { 
attribute int 1x; 
attnbute int 1y 
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int repaint() 
int readdata() 
int writedata(); 
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V. DEMONSTRATIONS OF NEW DESIGN 


A. ROBOT CONTROL SYSTEM 


This demonstration reworks a CAPS project originally developed in CS4920 
(Spring 1996). The project developed a software prototype for a robot control system. 
The prototype was developed using CAPS Version 1.1. This demonstration uses a socket 


to connect the GUI-client with the PSDL-server. 


1. Requirements for Robot Control System 


The robot moves on a friction-less table using air bearings, and is equipped four 
compressed air thrusters that are aligned with the directions of the coordinate axes (+x, -x, 
+y, -y). Opposing thrusters should never be both turned on at the same time. Thruster 
force can be continuously varied under computer control. The maximum thrust from each 
thruster produces an acceleration of 1 meter per second per second. The software 1s 
supposed to provide a “soft landing” capability for the robot. In the test bench for the robot 
control software, the initial positions (x and y coordinates of the robot) and initial 
velocities (x and y components of its speed) are specified as input. The controller is 
supposed to bring the robot to a stop at a position less than 2 cm from the ongin of 
coordinate system. The robot must never get closer than 1 cm from the origin, and it must 
stay within the border of the table ( -1 meter <= x <= Imeter and -]1 meter <= y <= 1 
meter). The initial position must be a legal position, and both components of the initial 


velocity must not exceed | meter per second. 


2: Robot: PSDL-server 


CAPS (Version 1.1), running on a Sun Microsystems’ SparclO (SUNOS 4.14), 


was used to implement the demonstration. The PSDL for this demonstration is simple, but 


oe. 


contains time-critical operations. Appendix B contains the source code for the PSDL- 
server. Figure 13 shows the Robot PSDL graph. The operators bop display and 
bop_input are atomic operators implemented in Ada. These operators bind to a C program 
that implements the server connection. The atomic operator bop display sends data to 


GUI-client while bop input requests input from the GUI-client. 
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Figure 13. Robot PSDL Graph 


Code fragments for the PSDL-server are shown below. The file ada.h contains the 
data structure that 1s passed between the GUl-client and PSDL-server. The file 
“bop_display.a” is source code for the atomic operator bop display. This atomic operator 
passes display data to GUl-client. Inside “bop display.a”, the function call socket( ) 


passes the data structure to the GUI-client. The file ‘‘socket.a” contains the source code 
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for socket( ), which binds to the C program “server.c” which performs the actual socket 


connection, socket binding, and data transfer. 


Se 2 © S22 22 2 22 eee OS OS 888 8 SS S882 SS SS SS S222 SS SF SS SSS SSS S222 eS SSeS ee eee een 


typedef struct { 


int <x 
int ly; 
int Ir; 


jaRCCyeinec ru: 


-- FILE : socket.a 
--pkg 
package body socket _ PKG is 
al : FLOAT; 
bl : FLOAT; 
type Rec is record 
1x: Integer ; 
1y: Integer ; 
ir: Integer ; 


end record; 

type Rec_Ptr is access Rec; 

|: Rec Pi := new Rec; 

pragma LINK WITH ("server.o"); 
procedure server(I : in Rec_Ptr); 
pragma Interface (C, server ); 


procedure Socket(xx: in out Float; yy: in out Float; 
ireq: in out INTEGER) is 
begin 


server(I); 


end Socket; 
end socket_PKG; 


CS SS POSS BST 8 FS SS SSH SS SST SS SSS SESS SSS 


-FILE : bop_display.a 





with pva_data Pkg; 
with socket_ Pkg; 
use socket_ Pkg; 





procedure bop_display(bnss_pva_data: in pva_data_Pkg.pva_data) ts 
begin 
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socket(fx,fy,1x); -- Send the x,y position to the GUI-client. 
end bop_display; 


3. Robot: GUI-Client 


The GUlI-client can be written with almost any language and GUI development 


tools. A GUI-client communicates with the PSDL-server. 
a. Java 


The Java GUI-client was developed on a Sun Microsystems’ UltraSparc 
(Solans 2.5) and a Windows95 PC, using the Java Developers Kit (Version 1.1). In 
addition, Symantec’s Visual Café (Version 1.0) was used to develop the GUI-client. The 
Java program can be designed for a browser or as a standalone application. Figure 14 
shows a Java-applet version of the GUI-client. The source code for the applet version is in 
Appendix B. The Java applet is being displayed in a Netscape browser. The Java program 
is multithreaded. One thread responds to read/write data via the socket, while the other 
thread waits for user input and paints the screen. 

The Java program has various controls. The “Restart” button reinitializes 
the socket connection. The “Zoom” button changes the aspect of the view. The user can 
enter the initial x, y, x-velocity, y-velocity. The user can also drag the robot to a new 


starting location. 
b. Visual Workshop 
The GUlI-client was also implemented using Sun Microsystems’ Visual 


Workshop version 3.0. running on a Sun Microsystems’ Sparcstation-20 (Solaris 2.5). 


The GUI-client is very simple, but it does contain a thread to read/write data from the 
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PSDL-server. Figure 15 shows the Visual Workshop GUI builder, with the GUI-client 
loaded. Figure 16 shows the Visual Workshop version of the GUI-client. 
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Figure 14. Java GUI-Client 
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Figure 15. Visual Workshop GUI builder 
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Figure 16. Visual Workshop GUI-Client 
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B. SMARTSHIP PROJECT 


The Smartship Project commenced in December 1995 in response to the CNO’s 
review of the 1995 Summer NRAC study which focused on reduced manning. The study 
concluded that major reductions in manning could be achieved by design in new 
construction ships. Commander Naval Sea Systems Command responded to the CNO’s 
desire to focus on existing operational ships. The overall goal is to reduce workload, 
improve mission readiness, and maintain safety at minimum cost to the government. A 
Naval Postgraduate School thesis ‘““Smartship Project Modeling”, by Nolan Ruiz, 1s trying 
to determine if an effective modeling approach for the Smartship project can be found. In 
addition, it tries to determine if the current Productivity Allowance 1s valid. [Ref. 35] 

This thesis will look at possible user interfaces, using the GUI-client/PSDL-server 
design, that could be used with the Smartship project. A socket is usedto connect the 
GUl-client with the PSDL-server. This demonstration will contain only preliminary 


results, but Nolan Ruiz’s thesis will contain a complete prototype. 


1. Smartship PSDL-server 


The Manpower/Workload profile of a ship’s Communications Division was 
evaluated. Tasks can either be periodic or sporadic. Periodic tasks include: Station 
Watch, PMS Actions, and Field Day. Sporadic tasks include: Underway Replenishment, 
Vertical Replenishment, General Quarters Dnills, Fire Drills, Security Drills and Training. 

CAPS (Version 1.1), running on a Sun Microsystems’ Sparcl0 (SUNOS 4.14), 
was used to implement the CAPS demonstration. The top-level PSDL graph contains the 
following composite operators: SHIP, NAVSEA, and USER. The SHIP composite 
operator can be broken down into penodic and sporadic tasks. Figure 17 is the PSDL 
graph for the SHIP composite operator. The data flow between the operators (the periodic 


and sporadic tasks) is in man-hours. 
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Figure 17. Smartship PSDL 
Z. Smartship GUI-client 
The Java GUI-client was developed on a Sun Microsystems’ UltraSparc (Solaris 
2.5) and a Windows95 PC, using the Java Developers Kit (Version 1.1). In addition, 


Symantec’s Visual Café (Version 1.0) was used to develop was used to develop the GUI- 


client. Figure 18 is a Java version of a GUI-client for the Smartship prototype. 
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Figure 18. Smartship GUI-client (Java) 
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VI. CONCLUSION 


A. SUMMARY OF DESIGN AND IMPLEMENTATION 


The client/server design allows a PSDL-server to communicate with a GUI-client. 
The design is successful in decreasing the coupling between the GUlI-client and the real- 
time prototype application. The GUl-client can be created with almost any GUI 
development tools. In addition, the design allows the GUlI-client to be located on a local 
or remote CPU. The GUI-client can be unbound or bound to the real-time schedule of the 
PSDL server. 

The demonstrations, using a variety of commercial products, show the successful 
implementation of the design. In addition, the proper use of threads and GUI- 
client/PSDL-server communications (synchronous/asynchronous) is very important. If 
implemented properly, the client/server middleware does not effect the performance of the 
prototype. 

Although this thesis did not finish the integration of a new interface editor in 
CAPS, many GUI development tools were evaluated for possible integration. The 
client/server design increases the number of GUI development tools that can be used in the 
CAPS environment. The Java development tools were determined to be the best tools 
available to use with CAPS. The reasons to use Java include: low cost, abundance of 
tools, populanty, language features, and platform independence. 

The largest obstacle for implementation of the design is the client/server 
middleware. For a first implementation, sockets were able to provide the required 
functionality, but the socket programming model is very primitive. Therefore, a higher 
level product must be chosen. CORBA, with Ada, C, C++, and Java interfaces, could be 


used to implement the client/server middleware. 


on 


B. FUTURE RESEARCH 


In the course of work on this thesis, many ideas came forward, but were not 
implemented. A great deal of time was spent on the evaluation of GUI tools and 


middleware. The following is a list of ideas for future work. 


1. Selection of Middleware 


In addition to sockets, other middleware should be investigated. CORBA was only 
partially investigated in this thesis, but it could be used to connect atomic operators 
written in Ada to a GUI-client. Other middleware to investigate include: Java’s RMI, 


Microsoft’s DCOM, Netscape’s Caffeine, RPC. 


Zz: Selection of GUI Development Tools 


A GUI development tool should be selected for full integration into CAPS. In 
addition, a PIGUI would aid in the porting of the other CAPS tools. 


3. Further Demos 

New applications using the new GUlI-clienUPSDL-server design should be 
demonstrated. Previous CAPS applications could be ported and their performance 
compared. Implementations using a single CPU could be evaluated. 

4. Socket Communications 

If sockets are used, the server-side and the client-side source code could be 
automatically generated. The data structure for passing data between the GUI-client and 


PSDL-server could be standardized. 
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Several protocols exist for socket communications. The socket protocols should be 
compared to find the most efficient method of communications. 

This thesis implemented the PSDL-server by binding the Ada83 code to a C 
module. The C module implemented the socket communication. Ada95 should be able to 


implement a socket connection. 


J: JavaBeans 
A bean is a reusable and interchangeable Java component. Even though JavaBeans 


are a new technology, many vendors are now selling JavaBeans tools. It might be possible 


to create a Java-Bean GUlI-client automatically in the CAPS Graphics Editor (GE). 
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APPENDIX A. EVALUATION OF GUI TOOLS 


A. GUI TOOLKITS 


Product Name: Java Development Kit 

Vendor: Sun Microsystems 
2550 Garcia Ave. 
Mountain View, CA 94043 (800) USA-4SUN 
http://www.javasoft.com 


GUI builder available: No - See third party developers 
Java is an object-orientated, multithreaded, and portable programming 
language. The Abstract Window Toolkit (AWT) is a built-in library for 
creating window components. Java has built-in garbage collection. A 
great deal of work is being on and with Java, but the language ts in a 
state of flux. The class library is very comprehensive, but lacks the 
high level GUI object or dialog objects. Many third parties are 
developing these high level objects. Unfortunately, Java ts currently 
slower in execution speed than other languages, but Sun Microsystems 
and other vendors are developing compilers that should bring the 
performance of Java close to other languages. The loading of the Java 
AWT software on a Sun Microsystems Sparcstation ( Solaris 2.5) and 
Windows-95 was very easy. Linking directly with CAPS would be 
difficult. A client/server interface with CAPS was completed tn this 
thesis. [Ref. 29] [Ref.30] [Ref. 36} [Ref. 37] 


Table 1. Java Development Kit 
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Product Name: Fresco 


Vendor: Fujitsu FASLAB 
800 E] Camino, Suite 150 
Menlo Park, CA 94025 (415) 325-6015 
http://www.faslab.com 

Type of Tool: Toolkit, Similar look-and-feel of Motif 


Future Support: The research on Fresco at FASLAB has be completed. No future work 
seems to be planned. 


Comments: The Opengroup’s X11-V6 (Broadway) contains a sample 
implementation of Fresco. Fresco is user interface system specified 
using CORBA IDL. Even though it is included in the latest version of 
X-Windows, Fresco is not yet a standard. Fresco is a PIGUI, but it 
does not support the native look and feel. Loading Fresco on Sun 
Microsystems Sparcstation (Solaris 2.5) was fairly simple. A tutorial 
walks a new user through examples. FrescoVFX is a fairly complete 
example of what Fresco can do. Fresco has very little low level 
documentation and the software library still seems buggy. There is no 
documentation on how to put the components together into a final 
product. Fresco could possibly connect to CAPS via a client/server 
approach. [Ref. 27] 


Table 2. Fresco 





| Product Name: wxWindows 
| Vendor: Artificial Intelligence Applications Institute University of Edinburgh 
80 South Bndge 


Edinburgh Scotland Phone: 0131 650 2746 
| http://web.ukonline.co.uk/julian.smart/wxwindows.com 
Type of Tool: toolkit library 


| PIGUI Yes 
Supported Platforms: Windows/UNIX(Solarts) 
| Cost. Free 


Vendor Support: None 


Future Support: Q 


| Languages Supported: Cre 
| GU] builder available: Yes, wxBuilder, Sun Microsystem’s Devguide 
Comments: WxWindow is a C++ user interface library. It appears to be one of the 


best toolkits that is free. Loading wx Windows on a Sun Microsystems 
Sparcstation (Solaris 2.5) was difficult. The GUI builders are not very 
well documented. The class libraries have a lot of features, but learning 
all the classes and methods 1s difficult. CAPS could interface to 

wx Windows via a client/server protocol, but linking wx Windows into 
CAPS would be very difficult [Ref. 13] 


Table 3. Wx Windows 
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B. GUI BUILDERS 


Product Name: UIMX 


Vendor: Black & White Software (Resailer) 
2155 S. Bascom Ave., 
Campbell, CA, 95008, 408-369-7400 
http:/www/vedge.com 


PIGUI: 


Cost ~$5000 
Vendor Support: 
Future Support: yes 


Languages Supported: C, C++, Ada (add-on product) 


No 
Supported Platforms: UNIX 
yes 
Yes 


GUI builder available 


UIMX (Figure 19) is a very popular GUI builder. It is resold under 
many different vendors. Integrated products can include: ORBIX for 
client/server, Cross-platform toolset (windows), Ada. [Ref. 38] 


Table 4. UIMX 


Comments: 
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Figure 19 UIMX “From Ref. [38]” 
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Product Name: X-Designer 


Vendor: Imperial Software Technology 
US Office 


120 Hawthorne Avenue Suite 101 


Palo Alto, California 94301 (415) 688-0200 
http://www. ist.co.uk 





Supported Platforms: UNIX platforms are supported 
Future Support: Yes 
Comments: X-Designer (Figure 20) is a Motif development environment. With 


OC-Systems’ XDA, it is possible to convert the output of Visual- 
Workshop to Ada. X-Designer is repackaged in many other 3" party 
applications ( Visual Workshop and DataViews ). [Ref. 31] 


Table 5. X-Designer 
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Figure 20. X-Designer “From Ref. [31]” 
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Product Name: Visual Café 


Vendor: Symantec Corporation 
10201 Torre Ave 
Cupertino, CA 95014 (408) 253-9600 
http://symantec.com 


: Yes 


GUI builder available 

Comments: Visual Café (Figure 21) is development environment for Java.. 
Loading on Window-95 was very easy. Symantec has a variety of 
products, including tools to link Java to databases. Linking directly 
with CAPS would be difficult. A client/server interface with CAPS 
was completed in this thesis.[Ref. 34] 


Table 6. Visual Café 
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Product Name: Builder Xcessory 


Vendor: Integrated Computer Solutions 
Cambridge, Mass. (617) 621-0060 
http://www.ics.com 


GUI builder REG: 


Comments: Fie Xcessory (Figure 22) is a popular GUI builder. Version 4.0 
supports code generation for Motif and Java (applets and applications). 
The tool can be integrated into Pure-Atria’s ClearCase evolution control 
products. There is support for Ada in Version 3. The support for Ada 
is limited to Sun Microsystems platforms and only with the Rational 
and SunAda compilers. [Ref. 39] 


Table 7. Builder Xcessory 
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Figure 22. Builder Xcessory “From Ref. [42]” 


46 


C. USER INTERFACE MANAGEMENT SYSTEMS 


Product Name: OpenUI 


Vendor: Open Software Associates 
20 Trafalgar Square 
Nashua, NH 03063 (800) 441-4330 
http://www.osa.com 


= Software Associates main office 1s in Australia, but there support 
of their product is very good. OpenUI (Figure 23) has built in 
client(GUI1)/server(LOGIC) application development. A user one must 
learn their interface language (OPL) to complete a user interface. C, 
C++ is used to bind to application code. ADA its longer supported. 
OpenU! would be useful for large project. 

[Ref. 1S][Ref. 40] 


Table 8. OpenU] 
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Figure 23. OpenUI “From Ref. [43]” 
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D. APPLICATION DEVELOPMENT ENVIRONMENTS 


Product Name: Visual-Workshop 3.0 


Vendor: Sun Microsystems 
2550 Garcia Ave. 


Mountain View, CA 94043 (800) USA-4SUN 
http://www.sun.com 


Type of Tool: GUI-builder / Development Environment (Motif) 


PIGUI: NO 





Supported Platforms: Solaris2, Other UNIX platforms are supported with Imperial Software 
Technology’s X-Designer. 


GUI builder available: Yes 

Comments: Visual-Workshop (Figure 24) is a Motif development environment that 
includes Imperial Software Technology’s X-Designer (GUI-builder). 
Visual-Workshop is a complete engineering environment with a GUI 
builder, debugging tools, and evolution control tools. Installation of the 
software was very easy. A demonstration version can be downloaded 
and evaluated. The GUI builder is very easy to use. Linking directly 
with CAPS would be difficult, because of the event manager. A 
client/server interface with CAPS was completed in this thesis. With 
OC-Systems’ XDA, it is possible to convert the output of Visual- 
Workshop to Ada. 

[Ref. 21][Ref. 41][Ref. 42][Ref. 43] 


Table 9. Visual Workshop 
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Figure 24. Visual Workshop “From Ref. [21]” 


50 


Product Name: 

Vendor: Visix 
11440 Commerce Park Dr. 
Reston, Virgina 22091 (800) 832-8668 
http://www. visix.com 


GUI builder available: es 

Comments: Galaxy (Figures 25, 26) is complete software engineering environment. 
Galaxy is an emulated API. An emulated API does not require high 
level toolkits to compile the program. For example, when Galaxy 
emulates Motif, Galaxy does not have to link in Motif libraries. A 
benefit of the emulated approach is that you can try out a Macintosh 
look-and-feel on a UNIX workstation. It also has a full range of other 
tools including: image and color editors. [Ref. 20] 


Table 10. Galaxy 
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Figure 25. Galaxy (Motif) “From Ref. [20]” 
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Figure 26. Galaxy (Windows) “From Ref. [20]” 
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E. OTHER GUI TOOLS 


Product Name: DataViews 


Vendor: DataViews Corporation (formerly VI Corp) 
47 Pleasant St., 
Northampton, MA 01006 (413) 586-4144 
http: WWW. dvcorp. com 


Comments: Dataviews (Figure 27) is a data visualization tool for real-time 
applications. [Ref. 19] 


Table 11. Datavews 
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Figure 27. DataViews ‘From Ref. [19]” 
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Product Name: Matlab 

Vendor: The MathWorks, Inc. 
24 Prime Park Way, 
Natick, Mass, 01760 (508) 653-1415 
http://www.mathwork.com 

Type of Toot: Numeric Computation, Graphing, and Visualization 

PIGUI: Partially, many programs can be run on different platforms with no 
change. 


GU! builder available: Yes 
Matlab (Figure 28) is a popular signal processing and visualization tool. 
Additional toolboxes can be added Matlab. GUIs can be easily created 
in MATLAB. The Matlab scripting language is easy to use and there 
are many example of source code available. [Ref. 18] 


Table 12. Matlab 
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Figure 28. Matlab ‘From Ref. [18]” 
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APPENDIX B. SOURCE CODE 


A. ROBOT PSDL-SERVER 


Robot PSDL-server: file robot.psdl 


TYPE a data 
SPECIFICATION 
END 
IMPLEMENTATION ADA a_data 
END 


TYPE pv_data 
SPECIFICATION 
END 
IMPLEMENTATION ADA pv_data 


END 


TYPE pva_data 
SPECIFICATION 
END 
IMPLEMENTATION ADA pva_data 


END 


OPERATOR bop calc 
SPECIFICATION 
PNPUT 
bnss_pv_data : pv_data, 
bnss_state : pva_data 
OUTPUT 
bnss_a data: a data, 
bnss_error : INTEGER, 
bnss pva_ data: pva_data, 
bnss_ state : pva_ data 
MAXIMUM EXECUTION TIME 25 MS 
END 
IMPLEMENTATION ADA bop _calc 


END 


OPERATOR bop_display 
SPECIFICATION 
INPUT 
bnss_pva_ data: pva_dat 
MAXIMUM EXECUTION TIME 5 MS 
END 


IMPLEMENTATION ADA bop_display 


7 


Robot PSDL-server: file robot.psdl (cont. 
END 


OPERATOR bop_error 
SPECIFICATION 
INPUT 
bnss_error : INTEGER 
MAXIMUM EXECUTION TIME 5 MS 
END 
IMPLEMENTATION ADA bop _error 


END 


OPERATOR bop fire_ thrusters 
SPECIFICATION 
INPUT 
bnss_a data:a_ data 
MAXIMUM EXECUTION TIME 5 MS 
END 
IMPLEMENTATION ADA bop _fire_thrusters 


END 


OPERATOR bop_input 
SPECIFICATION 
OUTPUT 
bnss_pv_data: pv_data 
MAXIMUM EXECUTION TIME 5 MS 
END 
IMPLEMENTATION ADA bop_input 


END 
OPERATOR robot4 
SPECIFICATION 
END 
IMPLEMENTATION 
GRAPH 
VERTEX bop_calc : 25 MS 
VERTEX bop_ display : 5 MS 
VERTEX bop_error: 5 MS 
VERTEX bop_fire_thrusters : 5 MS 
VERTEX bop_ input: 5 MS 
EDGE bnss_a_data 


bop_calc -> 
bop_fire_thrusters 
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Robot PSDL-server: file robot.psdl (cont. 


EDGE bnss_error 
bop_calc -> 
bop_ error 


EDGE bnss_pv_data 
bop_input -> 
bop_ calc 


EDGE bnss_pva_data 
bop_calc -> 
bop_display 


EDGE bnss state 
bop calc -> 
bop_calc 
DATA STREAM 
bnss_a_data: a_data, 
bnss_error : INTEGER, 
bnss_pv_data : pv_data, 
bnss_pva_data : pva_data, 
bnss_ state : pva_data 
CONTROL CONSTRAINTS 
OPERATOR bop calc 
PERIOD 50 MS 


OPERATOR bop_display 
TRIGGERED BY ALL 
bnss_pva_ data 


GPERATOR bop _error 
TRIGGERED BY ALL 
bnss_error 


OPERATOR bop_fire_ thrusters 
TRIGGERED BY ALL 
bnss_a_data 


OPERATOR bop_ input 


PERIOD 200 MS 
END 


he 


Robot PSDL-server: file ada.h 


-- FILE : ada.h 

-- CSCI : Robot Controller 
-- Date ‘June 1996 

-- Author 


Ne eT Ted ee eee ed 


typedef struct { 


int 1X} 
int 1y; 
int in, 


} Kees Rec. Ptr, 


60 


Robot PSDL-server:_file global.h 


-- FILE : global.h.a 

-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 5 

--Compiler : Sun/Ada 


See e2 @ee2 O82 2 S82 SO S28 = fees SB Oe Oe SB ee OSS S282 22 22 88 S| See eC eS Sess see See SS 


struct data 
Co 

int 1X; 

int 1y; 

int ir; 


1. 
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Robot PSDL-server: file bop data.a 


SS SS SS SSS SSS SS SSS S S88 SS SSF 8 SSF S28 SSF SSF SSF S SSFSF SS SS SF SF SSF FF SF FF 2 fF FS SSS SSF 2 S288 S28 80828 


-- FILE : bop_a_data.a 


-- CSCI : Robot Controller 
-- Date : June 1996 
-- Author 


--Compiler  : Sun/Ada 


S22 2 2S SS 2 2S Se SSS2S2 SS SSF S22 SF 2 SS SF 2 SS S22 SSS S22 SSF 2 Sf SOF Fe fF Se eS S222 2 eS ese e2ee ee 


with text_io; 
use text_10; 


-- definition for a data stream of robot acceleration values 
package a_data PKG is 
type a_data is record 

xacc : FLOAT := 0.0; 

yacc : FLOAT := 0.0; 


end record; 


end a_data PKG; 
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Robot PSDL-server: file bop_calc.a 


S828 @8 2 2222 2 2 22 22 2 e228 2 8 SS 6S 2 2228 2 222 222 SS 22282 S222 22 SS eSe@e 222 2 See ee 2ee8 e882 


-- FILE : bop _calc.a 

-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 


-- Compiler : Sun/Ada 
with TEXT_IO; 

use TEXT_IO; 

with a data Pkg; 

with pva_ data Pkg; 
with pv_data Pkg; 

with math; 

use math; 


-- This is the central operator of the robot "soft landing process”. 
-- On the first call to this operator, mitial input is prompted for. 
-- On subsequent calls, this operator calculates the robot's distance 
-- from the origin and adjusts acceleration as necessary to bring 
-- the robot to a soft landing within the required "doughnut". The 
-- algorithm used is to continually adjust thruster acceleration 

-- as follows: 


Calculate the robot's distance from origin. 


If the robot is too close to the center, 
issue an error message. 

Else if inside the doughnut, 
set acceleration to force robot to stop in 2 periods. 
if the robot is moving very, very slow, 

issue a "DONE" message. 

Else, the robot still has a ways to go, so 
calculate thruster acceleration needed to reach origin 
in 2 seconds (the robot may initially speed up, but it 
should eventually experience continued slowdown as it 
gets closer to the doughnut relative to it initial 
distance from the doughnut). 


If the robot is off the table, 
issue an error message. 


Calculate the distance moved since the last call to the this 
operator based on this operator's calling period. 


Calculate the robot's current velocity. 
Write position, acceleration, velocity to outgoing data streams. 


Save the operator's state. 
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Robot PSDL-server: file bop_calc.a (cont.) 


--Spec 
package bop calc_Pkg is 
procedure bop_calc(bnss_state: in out pva_data_Pkg.pva_data; bnss_pva_data: out 
pva_data Pkg.pva_data; bnss_a_data: out a_data Pkg.a_data; bnss_ error: out INTEGER ;bnss_pv_data: in 
pv_data_pkg.pv_data); 
end bop calc Pkg; 


--Body 
package body bop calc Pkg 1s 


package FL_[O is new TEXT_IO.FLOAT_ IO(FLOAT); 
firsttime : INTEGER == 1; 


procedure bop calc(bnss_state: in out pva_data_Pkg.pva_data; bnss_pva_data: out 
pva_data Pkg.pva_ data; bnss a data: outa data Pkg.a_ data; bnss_error: out INTEGER ;bnss_pv_ data: in 
pv_data Pkg.pv_data) 
1S 


dis from_center : FLOAT; 
xvel_ desired: FLOAT; 
yvel_desired: FLOAT; 


tmpf : FLOAT; 
xpos : FLOAT := 0.0; 
ypos : FLOAT := 0.0; 
xvel : FLOAT := 0.0; 
yvel : FLOAT := 0.0; 
xacc : FLOAT := 0.0; 
yacc : FLOAT := 0.0; 


begin 


else -- load the previous state to local variables 
xpos := bnss_ state.xpos; 
ypos := bnss_state.ypos; 
xvel := bnss_state.xvel; 


yvel := bnss _state.yvel; 
xacc := bnss_sState.xacc; 
yacc := bnss_state.yacc; 
end if; 


if bnss_pv_data.irequest /= 0 then 
xpos := FLOAT(bnss_pv_data.xpos)/1000.0; 
ypos := FLOAT(bnss_pv_data.ypos)/1000.0; 
end if; 
bnss_error :=0; 
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Robot PSDL-server: file bop _calc.a 


-- Calculate Distance from Center 
dis _from_center := Sqrt(xpos * xpos + ypos *ypos); 


if dis_from_center < 0.01 then -- In to close to center 
PUT_LINE("Too Close"); 
bnss_error := 1; 
elsif dis_from_center < 0.02 then -- Inside circle 
xacc := -xvel * 20.0; -- Stop in 2 periods 
yacc := -yvel * 20.0; 


if abs(yvel) < 0.00001 then 
if abs(xvel) < 0.00001 then 
PUT("DONE"); 
end if; 
end if; 
else 
-- Adjust acceleration 
xvel_desired := - ( xpos / 2.0); -- Reach center in 2s 
yvel_desired := - ( ypos / 2.0); 


xacc := - ( xvel - xvel_desired); 
yacc := - ( yvel - yvel_ desired); 
end if; 


if abs(xpos) > 1.0 then -- Off the table 
PUT_LINE("OFF THE TABLE X"); 
bnss_error := 2; 
end if; 
if abs(ypos) > 1.0 then 
PUT_LINE("OFF THE TABLE Y"); 
bnss_error := 3; 
end if; 


-- Calculate Distance Moved 
xpos := xpos + (xvel * 0.05) + (xacc * 0.00125); 
ypos := ypos + (yvel * 0.05) + (yacc * 0.00125); 
-- Calculate New Velocity 


xvel := xvel + (xacc * 0.05); 
yvel := yvel + (yacc * 0.05); 


-- write to output data streams 
bnss_ pva_data.xpos := xpos; 
bnss_pva_data.ypos := ypos; 
bnss pva_data.xvel := xvel; 
bnss_pva_data.yvel := yvel; 
bnss pva_data.xacc := xacc; 
bnss_pva_data.yacc := yacc; 
bnss_a_data.xacc := xacc; 
bnss_a_data.yacc := yacc; 
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Robot PSDL-server: file bop_calc.a (cont.) 


-- save this operators state 
bnss_state.xpos := xpos; 
bnss_state.ypos := ypos; 
bnss_state.xvel := xvel; 
bnss_state.yvel := yvel; 
bnss_state.xacc := xacc; 
bnss_state.yacc := yacc; 


end bop calc; 
end bop calc Pkg; 
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Robot PSDL-server: file bop_display.a 


Se 2S @®e ee 8 © eGeZFZe@eee@@2 2 @e ee eee ee ee e@G@e@e2 eee e@— =] Sf eS Se eee] ee SS SS Se SS Oe eS 


-- FILE : bop_display.a 

-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 


--Compiler  : Sun/Ada 


See P SEB TST SSS SE SESS TS SP OSes Se See eG SD e ees Se See eS SOS SS SS Se SS SSS SU SSeS oeea= 


with TEXT_IO; 

use TEXT IO; 

with pva_data_ Pkg; 
with socket_ Pkg; 
use socket_ Pkg; 


package bop display Pkg is 
procedure bop display(bnss_pva_data: in pva_data_Pkg.pva_data); 
end bop display_Pkg; 


package body bop_display_Pkg 1s 
package FL_IO 1s new TEXT_IO.FLOAT_IO(FLOAT); 
procedure bop _display(bnss_pva_data: in pva_data_Pkg.pva_data) is 

ix: INTEGER; 
fx: FLOAT; 
fy: FLOAT; 

begin 
x = 0, 
fx -= bnss pva_data.xpos; 


fy = bnss_pva_data.ypos; 
socket( fx.fy.1x); 


end bop_ display; 
end bop display Pkg: 
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Robot PSDL-server: file bop_error.a 
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-- FILE : bop_error.a 

-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 


-- Compiler =: Sun/Ada 


with TEXT_IO; 
use FEXTI0: 


-- All that this operator does is read an error flag 
-- setting from its input data stream and writes 
-- and error indication to the display if the error 
-- flag is set to indicate error. 


--Spec 
package bop error Pkg is 

procedure bop _error(bnss_error: in INTEGER); 
end bop_error_Pkg; 


--Body 
package body bop error Pkg is 


package INT_IO is new TEXT_IO.INTEGER_IO(INTEGER); 
procedure bop_error(bnss_ error: in INTEGER) is 


begin 
if bnss_error > 0 then 
INT_IO.PUT(bnss_ertor); 
PUT_LINE("Error"); 
end if; 
end bop_error; 
end bop _error_Pkg; 
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Robot PSDL-server. file bop_fire_thrusters.a 


-- FILE : bop_fire_thrusters.a 
-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 


--Compiler : Sun/Ada 


with TEXT_IO; 
use TEXT_IO; 
with a_data_ Pkg; 


-- This is sort of a dummy operator that inputs thruster acceleration 
-- adjustments and outputs the received adjustment to the system 

-- display. Its intended purpose was to effect a more realistic 

-- model by having an operator that actually receives the thruster 
-- adjustments from the operator that does the thruster adjustment 
-- calculations. 


package bop _fire_thrusters Pkg is 
procedure bop fire_thrusters(bnss_a_ data: in a_data_Pkg.a_ data); 
end bop fire thrusters Pkg; 


package body bop _fire_thrusters Pkg is 
package FL_JO is new TEXT_IO.FLOAT_IO(FLOAT); 
procedure bop fire_thrusters(bnss_a_data: in a_data_Pkg.a_data) is 
ftmp : FLOAT := 0.0; 
begin 


if bnss_a_data.xacc > 0.0 then 
Put(" Left Thruster ="); 
FL 1O.PUT(bnss_a_data.xacc,0,3,0); 
Put(" Right Thruster ="); 
FL_JO.PUT(ftmp,0,3,0); 
else 
Put(" Left Thruster ="); 
FL 10.PUT(ftmp,0,3,0); 
Put(" Right Thruster ="); 
FL _1O.PUT(abs(bnss_a_data.xacc),0,3,0); 
end if; 
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Robot PSDL-server: file bop_fire_thrusters.a (cont. 


if bnss_a_data.yacc > 0.0 then 
Put(" Bott Thruster ="); 
FL IO.PUT(bnss_a_data.yacc,0,3,0); 


Put(" Top Thruster ="); 
FL_I10.PUT(ftmp,0,3,0); 
else 
Put(" Bott Thruster ="); 
FL _IO.PUT(ftmp,0,3,0); 
Put( Top Thruster ="); 
FL_IO.PUT(abs(bnss_a_data.yacc),0,3,0); 
end if; 
NEW_LINE; 


end bop _fire_ thrusters; 
end bop _fire_ thrusters Pkg; 
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Robot PSDL-server: file bop_fire_inputs.a 


-- FILE : bop _input.a 

-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 


--Compiler : Sun/Ada 


with TEXT_IO; 
use TEXT_IO; 
with socket_Pkg; 
use socket_ Pkg; 
with pv_data_ Pkg; 


package body bop _input_Pkg is 
procedure bop input(bnss_pv_ data: out pv_data_Pkg.pv_ data) is 


ir: INTEGER; 
fx: FLOAT; 
fy: FLOAT; 


begin 


i=l; 

fx := 0.0; 

fy := 0.0; 

socket(fx,fy,ir); -- Check the GUI for input 
bnss_pv_data.xpos := fx; 
bnss_pv_data.ypos := fy; 
bnss_pv_data.trequest := ir; 


end bop_input; 
end bop input_ Pkg; 
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Robot PSDL-server: file bop _pv_data.a 


-- FILE : bop_pv_data.a 

-- CSCI : Robot Controller 
-- Date : June 1997 

-- Author 


--Compiler : Sun/Ada 


SS2 2 © S228 SSF SSF SS SS STS SSS S22 22 S222 S282 SSF FSFSFFSFSSS Sess ST SSF fF FSF FFF 22 222222 


with text_10; 
use text_10; 


-- definition for a data stream of robot position, 
-- velocity, and acceleration values 


package pv_data_ PKG is 


type pv_ data is record 
irequest : INTEGER := 0; 
xpos : FLOAT := 0.0; 
ypos : FLOAT := 0.0; 
xvel: FLOAT := 0.0; 
yvel : FLOAT := 0.0; 
end record; 


end pv_data_ PKG; 
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Robot PSDL-server: file bop_pva_data.a 


-- FILE : bop_pva_data.a 
-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 


--Compiler : Sun/Ada 


ie oo als ED ke ke ke pe ke De GD ED GD DD ee ee ee ee te ee ee ee ot te SD gee ae ote oe ee ee oe oe SD oe oe oe GD GS ea ee 


with text_10; 
use text_10; 


-- definition for a data stream of robot position, 
-- velocity, and acceleration values 


package pva_data_ PKG 1s 


type pva_data 1s record 
xpos : FLOAT := 0.0; 
ypos : FLOAT := 0.0; 
xvel : FLOAT := 0.0; 
yvel : FLOAT := 0.0; 
xacc : FLOAT := 0.0; 
yacc : FLOAT := 0.0; 

end record; 


end pva data PKG; 
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Robot PSDL-server:_file socket.a 
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-- FILE : socket.a 

-- CSCI : Robot Controller 
-- Date : June 1996 

-- Author 


-- Compiler : Sun/Ada 


--Purpose : The package contains the procedure socket 
--which 1s used to pass data to GUI-clhient. 

--Socket binds to the C program that does the 

--actual socket connection. 


Se ewewt ete Geese e Se SS See Se eS eS eee eB eee ees eee eT eee eT rC eee se owe Te Se SF eee See eee 


with text_10; 
use text_10; 


--Spec 
package socket_PKG is 
procedure socket(xx: in out Float; yy: in out Float; 
ireq: in out INTEGER); 
end socket PKG; 


--pkg 
package body socket_PKG is 


-- to instantiate integer generic 


al : FLOAT; 
bl : FLOAT; 


type Rec is record 
ix: Integer ; 
1y: Integer ; 
ir: Integer ; 
end record; 


type Rec_ Ptr is access Rec; 

1: Rec_Ptr := new Rec; 
pragma LINK_WITH ("“server.o"); 
procedure server(] : in Rec_ Ptr); 


pragma Interface (C, server ); 


procedure Socket(xx: in out Float; yy: in out Float; 
ireq: in out INTEGER) is 
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Robot PSDL-server: file socket.a (cont.) 


begin 


al :=xx * 1000.0; 

Lix := INTEGER(a1); 
bi := yy * 1000.0; 

Liy := INTEGER(b1); 
Lir := INTEGER(ireq); 
server(I); 

xx := FLOAT(I.1x); 

yy := FLOAT(L.1y); 
ikea. lin; 


end Socket; 


end socket_PKG; 
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Robot PSDL-server: file server.c 


Ys 

-- FILE : server.c 

-- CSCI : Robot Controller 
-- Date : June 1997 


-- Compiler : gcc 


S222 8 S28 SS SS SS SSF SF SS SS SSS STEP SSPSTSE SSF SSS SSS SS SSS TF SF SS S88 SS 228 28 See SS e eee a 


-- This program implements the C socket connection. 
| 


#include <stdio.h> 
#include <fcntl.h> 
#include <errno.h> 
#include <signal.h> 
#include <strings.h> 
#include <sys/types.h> 
#include <sys/socket.h> 
#include <netinet/in.h> 
#include <netdb.h> 
#include <sys/filio.h> 
#include "confer.h" 
#include "global.h" 
#include “parse.h" 
#include "“ada.h" 


#define MAX 128 

#define MAXFILTERS 100 
#define MAXRECORDS 100 
exter int ermo; 

void close_connection(); 

struct sockaddr_in My_Sockaddr; 
Int sock; 


struct data recmessage; 
struct data sendmessage; 
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Robot PSDL-server: file server.c (cont. 


ee eee EEEE EEE CEE EE EEE EE St EEE EEE EE 


Function server 

Arguments: Rec_Ptr Info; 

Return: None 

Purpose: Sends data to the client. 
The struct defined in message being the structure 
data defined in global.h. Will return 1 if able send. 

ee ke EES TEESE EE EEE ES EEE TEST EEE EE EE EE EEE / 

server(Info) 

Rec_Ptr Info; 
{ 


int ret; 


sendmessage.i1x = Info->1x ; 
sendmessage.iy = Info->1y ; 
sendmessage.ir = Info->ir ; 


ret = inet_server(); 
if(ret < 0) 
printf("failed to read message socket may have died\n"); 


Info->1x = recmessage.ix; 
Info->1y = recmessage.1y; 
Info->ir = recmessage.1r; 


} 


[PES SSS SSH SSH ESSE SSEHESKS KS SE SESEAKS SS SSEKKSS 


Function imet_server 

Arguments: None 

Retum: integer 
-1 if fails to read or socket died 

Purpose: Sets up server. Will return | if able 
to read. Will return -1 if fails or socket has 
died. 


ladda dada dada dindadadadadads ta iadadadadndadadndndadadndndadndindntad | 


inet_server() 


int result. 


signal(SIGPIPE, close_connection); 
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Robot PSDL-server: file server.c (cont. 


if(isock < 1) 
oe 

rae <1) 
lane ye 


result = msgs(); 


/* Determine whether we've exited because of an error or the 
* connection has been disconnected. 
=) 

if (result < 0) 


perror("read failed"); 
isock = 0; 
return(-1); 
} 
if{result <1) /* socket died*/ 
isock = 0; 
return(-1); 
return( 1); 


[FOSS OCOKOOOKOOOOKEEEEEEEEEEKEKEEE SEEKS EEEEEEKEKEEEEEE SS 


Function: setup 
Arguments: none 
Return: int (-1 if fails) 
Purpose: Continues the socket setup. Listens for a connection. 
bt Nt TN JN NM I Nd MN ais aM Nala ad al dada lo SB LE i 
int set_up{) 
Static struct sockaddr_in from; 
static int Jength = sizeof(from); 
static int firsttume = 1; 


if ( firsttime) 
/* Set-up the connection */ 
iffanit_isock_conn() < 0) 
return(-1), 
iE 
/* Get ready to accept from */ 
if{listen(LISTENER, 1) < 0) { 
perror(“Iisten”); 
return(-1); 


firsttume = 0; 
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Robot PSDL-server,_file server.c (cont. 


/* Accept new data connection */ 
if((isock = accept(LISTENER, &from, &length)) < 0) 
Error_Abort("accept"); 


fprintf(stderr, "connected\n"); 


} 


ee EEE EES EE EEE ES EERE EERE EE EE HES FE EE EE 


Function: msgs 
Arguments: none 
Return: int 
Purpose: Performs the reading and writing on the socket. 
a ee ke 2 oe ee 2 ie oe ee 2 ee 2 2 he ee 2 ie ee ie ie ee ee ee ae ee ae ee ae ie ae eee a ee O  / 
msgs() 
{ 
static int = 0; 
int rest; 
struct sockaddr_in from; 
int from_len = sizeof(struct sockaddr_in); 
int remnant = 0, cc; 
int itmp,ret,bytes; 
static int count = 1; 


char test[ 100]; 
int icount = 0; 
ret=Q; 


write(isock, &sendmessage, sizeof(sendmessage)); 
if{isock > 0) 
cc = read(isock, test,1); /* read check byte */ 
if(test(O] == 1) 
{ 


iftisock > 0) 
cc = read(isock, &recmessage,sizeof{recmessage)); /* read data structure */ 
} 
else 
recmessage.ix = 0; 
recmessage.1y = 0; 
recmessage.ir = 0; 
return(1); 
rest = 12-cc; 
if{rest '= 0) 


{ 
cc = recvfrom(isock, test,rest,0,.&from,&from_len); 
rest = rest - cc; 


return(1); 
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Robot PSDL-server: file server.c (cont.) 


[PERE ESAEEETAEL EEE EES TEES EAE EE ee ee 


Function: close_connection 

Arguments: none 

Return: void 

Purpose: Close the socket when a SIGPIPE accurs. 


REESE EES ESSE EEE EEE ES SES ESET Te eee ee 


void close_connection() 
{ 
shutdown(isock, 2); 
fprintf(stderr, "SIGPIPE received...exiting\n"); 
close(isock); 
isock = 0; 


} 

1% 

* Set-up a TCP connection 
oat 

int init_isock_conn() 

{ 


int sock; 


struct sockaddr_in server; 
Struct hostent *hp; 
struct servent *sp; 


bzero((char *)&server, sizeof(server)); 


if{((sock = socket(AF_INET, SOCK_STREAM, 0)) <0) 
Error_Abort("socket"); 
return(-1); 

if(setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char *)0,0) < 0) 
Error_Abort(“setsockopt, 1"); 


if(setsockopt(sock, SOL_SOCKET, SO_DONTLINGER, (char *)0,0) < 0) 
Error Abort("setsockopt,2"); 
/* 
if((sp = getservbyname(service, “tcp")) == NULL) { 
fpnntf(stden, “1sock: tcp/isock service not available\n"); 
exit(-1); 
SCTVCr.Sin_ port = sp->s_ port; 
7“ 
server.sin_port = 4141; /* Hard code port number , should use services file */ 


server.sin_ family = AF_INET; 
server.sin_addr.s_addr = INADDR_ANY; 
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Robot PSDL-server:_file server.c (cont. 


if(bind(sock, &server, sizeof(server)) < 0) 
{ 
perror("bind"); 
close(sock); 
return(-1); 


} 
if (sock '= LISTENER) { 
if (dup2(sock, LISTENER) = -1) 


fprintf(stderr, "\nINIT_CONN: dup2 failed\n"); 


return( 1); 


8] 


B. ROBOT JAVA GUI-CLIENT 


Robot JAVA T-client : file lander.html 


JAVA - Applet GUI-Client 


<html> 

<head> 

<title>CAPS Robot Lander Craft - Client/Server JAVA JDK 
</title> 

</head> 

<body background="ste.jpg" bgcolor="#FFFFFF"> 

<h2> 

NRAD/NPS MS Software Engineering -- 

</h2> 

<p> 

CAPS - Client/Server JAVA - Robot Lander 

<p> 

<APPLET CODE="Lander" WIDTH=400 HEIGHT=500> 
</APPLET> 

</HTML> 

</body> 
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Robot JAVA T-client: file lander.java 


et CETTE PEER ESE EEE REECE TELE EEA SEE EEE EEE ELE EES EE EE SF 


* File: lander.java 
ok 


* Lander is an applet GUI-client for the robot. Communications with 

* the PSDL-server is via socket communications. The x,y locations are 
* passed from the server. 

* 

* Date: 8/97 


* 


FIA OI CISC I A FR ACK I / 


import java.awt.*; 
import java.applet.*; 
import java.util.*; 
import java.net.*; 
import java.lang.*; 
import java.io.*; 


public class Lander extends Applet implements Runnable 
{ 
MediaTracker theMediaTracker; 
Image imageDuke,imageBack; 
Image imageBuffer; 
Image buffer; 
Graphics imageBufferG, bufferG; 
Thread tl; 
/fRandClient rl; 
int XX,Yy; 
int newx,newy; 
double dcompress = 1.0; 
boolean bNeedToRestart = false; 
boolean bRunning = false; 


TextField xField,yField; 
TextField xvField,yvField; 
TextField xaField,yaField; 
Button startButton; 

Button bZoomIn,bZoomOut; 


public void start() 


System.out.pnntin("start "); 
xx = 0; 
yy: 
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Robot JAVA T-client: file lander.java (cont. 


public boolean action(Event evt,Object arg) 


{ 


boolean retVal = false; 


if(evt.target == bZoomIn) 
{ 
dcompress = dcompress* 1.2; 
buildback(); 
repaint(); 
retVal = true; 


} 


if(evt.target == bZoomOut) 

{ 
dcompress = dcompress/1.2; 
buildback(); 
repaint(); 
retVal = true; 

} 

if((evt.target == startButton) 
|(evt.target == xField) 
|(evt.target == yField)) 


String xvalue,yvalue; 
double x,y; 


if(bRunning == false) 
{ 
bRunning = true; 
tl = new Thread(this); 
tl.start(); 
repaint(); 
} 


xvalue = xField.getText(); 
yvalue = yField.getText(); 


if((xvalue != null) && (yvalue != null) && !xvalue.equals("") && 
'yvalue.equals("")) 
{ 
//cvalue = Double.toString(c); 
//cField.setText(cvalue); 
newx = Integer.parseInt(xvalue); 
newy = Integer.parseInt(yvalue),; 
bNeedToRestart = true; 
XX = newx; 
yy = newy; 


84 


Robot JAVA 


I-client: file lander.java (cont. 


repaint(); 


ret Val = true; 


} 


return retVal; 


public void update(Graphics g) 


{ 


} 


paint(g); 


public void paint(Graphics g) 


{ 


Rectangle bounds; 

int w,h; 

double dscreenx, dscreeny; 
Color c; 

int 1,max; 


bounds = this.bounds(); 


dscreenx = (double)xx*dcompress/10 + 200; 
dscreeny = (double)yy*dcompress/10 + 200; 


bufferG.drawlmage(imageBuffer, 0, 0, this); 


w = imageDuke.getWidth(this); 
h = rmageDuke.getHeight( this); 
bufferG.drawImage(imageDuke,(int)dscreenx-w/2,(int)dscreeny-h/2,w,h,this); 
g.drawImage(buffer, 0, 0, this); 


public boolean mouseDrag(Event event, int screenx, int screeny) 


newx = (int)(( (double)((10 * screenx) - 2000) )/dcompress); 
newy = (int)(( (double)((10 * screeny) - 2000) )/dcompress); 
XX = newx; 

yy = newy, 

bNeedToRestart = true; 

repaint(); 

retum true; 


public void stop() 


{ 


System.out.printin("stop "); 
bRunning = false; 


85 


Robot JAVA T-client: file lander.java (cont. 


public void init() 

{ 
Rectangle bounds; 
Panel toolbar,toolbar2; 


bounds = this.bounds(); 
System.out.println(“init "); 


this.setLayout(new GridLayout(14,1)); 
toolbar = new Panel(); 

toolbar2 = new Panel(); 

xField = new TextField("1000",6); 
yField = new TextField("1000",6); 
xvField = new TextField(6); 

yvField = new TextField(6); 

xaField = new TextField(6); 

yaField = new TextField(6); 


startButton = new Button("Restart"); 
toolbar.add(startButton); 

bZoomIn = new Button("Zoom In"); 
toolbar.add(bZoomIn); 

bZoomOut = new Button("Zoom Out"); 
toolbar.add(bZoomOut); 


toolbar.add(new Label("XY",Label.RIGHT)); 
toolbar.add(xField); 
toolbar.add(yField); 


this.add(toolbar); 

toolbar2.add(xvField); 

toolbar2.add(yvField); 

toolbar2.add(new Label("X Yacc",Label.RIGHT)); 


toolbar2.add(xaF ield); 
toolbar2.add(yaF ield); 
this.add(toolbar2); 


/!"dukes.gif”); 
/?*photo_7.gif"); 
imageDuke = getlmage(getDocumentBase(), "dukes.gif"); 
// ent.gif 

/imageBack = getlmage(getDocumentBase(), "sat.gif”); 


toolbar2.add(new Label(”X Yvel”,Label.RIGHT)); 
imageBuffer = createlmage(size().width, size().height); 
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Robot JAVA GUl-client: file lander java (cont.) 
imageBufferG = imageBuffer.getGraphics(); 


buffer = createlmage(size().width, size().height); 
bufferG = buffer.getGraphics(); 


theMediaTracker = new MediaTracker(this); 
//theMediaTracker.addImage(imageBack,0); 
theMediaTracker.addImage(imageDuke, 1); 
try 


{ 
theMediaTracker.waitForAll(2000); 


catch(InterruptedException ex) { } 


buildback(); 
} 
public void buildback() 
{ 
double dx,dtmp,dtmp?2; 
Rectangle bounds; 
int w,h,i; 


bounds = this.bounds(); 
//System.out.println("build "+bounds. width); 


/imageBufferG.clearRect(0,0,bounds. width,bounds. height); 
imageBufferG.setColor(Color.black); 
imageBufferG. fillRect(0,0,bounds. width,bounds. height); 


//w = rmageBack.getWidth( this); 

/h = imageBack.getHeight(this); 

/imageBufferG.drawimage(imageBack,200-(int)((double)w*dcompress )/(2*4),200- 
(int)(double)h*dcompress)/(2*4),(int)((double)w* dcompress/4.0),(int)((double)h*dcompress/4.0),this); 


dtmp = dcompress * 100.0; 

dtmp2 = dcompress * 200.0; 

imageBufferG.setColor(Color.yellow); 
imageBufferG.drawOval(200-(int)dtmp,200-(int)dtmp,(int)dtmp2,(int)dtmp2); 
dtmp = dcompress * 2.0; 

dtmp2 = dcompress * 4.0; 

imageBufferG.setColor(Color.blue); 
imageBufferG.drawOval(200-(int)dtmp,200-(int)dtmp,(int)dtmp2,(int)dtmp2); 
dtmp = dcompress * 1.0; 

dtmp2 = dcompress * 2.0; 

imageBufferG.setColor(Color.cyan); 
imageBufferG.drawOval(200-(int)dtmp,200-(int)dtmp,(int)dtmp2,(int)damp2); 
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Robot JAVA 


T-client: file lander.java (cont. 


imageBufferG.setColor(Color.gray); 
imageBufferG.drawLine(200,0,200,400); 
imageBufferG.drawLine(0,200,400,200); 


dx = 0.0; 
i = 0; 
while(dx < 200.0) 


dx = (double) * dcompress; 

imageBufferG.drawLine(200 + (int)dx,196,200 + (int)dx,204); 
imageBufferG.drawLine(200 - (int)dx, 196,200 - (int)dx,204); 
imageBufferG.drawLine(196,200 + (int)dx,204,200 + (int)dx); 
imageBufferG.drawLine(196,200 - (int)dx,204,200 - (int)dx); 
if(dcompress < 2.0) 

1=1+ 10; 

else 

i=1u+; 


} 


public void destroy() 


} 


System.out.printin("destroy "); 


public void run() 


{ 


Socket server; 

InputStream 1n; 
OutputStream out; 
DatalnputStream dataIn; 
DataOutputStream dataOut; 
inti = 1; 

int 11n; 


try 

{ 

tl sleep( 1000); 
} 


catch(InterruptedException ex) { } 


while(bRunning) 


{ 


try 
{ 
//server = new Socket(InetAddress.getLocalHost(),4141); 
server = new Socket("pegasi.nosc.mil",4141); 
in = server.getInputSteam(); 
out = server.getOutputStream(); 
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Robot JAVA 


// 


T-client: file lander.java (cont. 


dataIn = new DataInputStream(in); 
dataOut = new DataOutputStream(out); 


while(bRunning) 
{ 


lin = datalIn.readInt(); 

//System.out.printin("The current number is: "+11n); 
XX = lin; 

iin = datalIn.readInt(); 

//System.out.println("The current number is: "+iin); 
yy = 1in; 

in = dataIn.readInt(); 

//System.out.println("The current number is: "+11n); 
if(iin == 1) 


if(bNeedToRestart) 


{ 
dataOut.wniteByte(1); 


dataOut.writeInt(newx); 
dataOut.writeInt(newy); 
dataOut.writeInt(1); 
//System.out.println("The x: "+newx); 
//System.out.println("The y: "+newy); 
bNeedToRestart = false; 

} 


else 


{ 
dataOut.writeByte(65); 
} 
} 
else 
{ 
dataOut.writeByte(65); 
repaint(); 
} 
n=nut; 


System.out.println("Closing socket"); 
dataIn.close(); 

in.close(); 

dataOut.close(); 

out.close(); 


catch(IOException ex) 


} 


System.out.printIn("Error connecting to random server’); 
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Robot JAVA T-client: file lander.java (cont.) 


public boolean imageUpdate(Image img, int flags, int x, int y, int w, int h) 


{ 
if(img != rmageDuke) 


{ 
buildback(); 
repaint(); 
return true; 


} 
repaint(); 
return true; 
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C. ROBOT VISUAL WORKSHOP (MOTIF) GUI-CLIENT 


Robot Visual Workshop (Moti T-client: file: Makfile 


SHELL=/bin/sh 
UILFLA GS=-I/usr/include/uil 
MRMLIBS=-IMrm 


# solaris 2.x 

XINCLUDES=-I/usr/dt/include -I/isr/openwin/include -J/usr/openwin/include/X 11 
XLIBS=-L/usr/dt/lib -L/usr/openwin/hb -R/usr/dt/lib -R/usr/openwin/lib 
LDLIBS=-lgen -lthread -lsocket -Insl -lm 

CEC-CC 

MRMLIBS=-L/usr/dt/lib -IMrm 

UILFLAGS=-Ilusr/include/uil -I/usr/dt/include/uil 
VISUROOT=/opt/SUNWspro/WS4.0 


XPMLIBDIR = ${VISUROOT}/user_widgets/obj 
XPMDIR = ${ VISUROOT}/contrib/xpm/lib 
LDFLAGS = ${XLIBS} -L$ {XPMLIBDIR} 
MOTIFLIBS = -lXpm -lXm -IXt -1X11 


XPCLASS = $(VISUROOT)Ysrc/xdclass 
XPCLASSLIBS = $(XPCLASS)/lib/libxdclass.a 


CFLAGS=-I. ${XINCLUDES} -I${XPMDIR} 
CCFLAGS=${CFLAGS} -I${XPCLASS}/h 


UIL=uil 


#DO NOT EDIT >>> 
XD_C_PROGRAMS=\ 
bp 


#<<< DO NOT EDIT 


#DO NOT EDIT >>> 
XD_C_PROGRAM_OBJECTS=\ 


bp.o 
#<<< DO NOT EDIT 


#DO NOT EDIT >>> 

XD_C_PROGRAM_SOURCES=\ 
bp.c 

#<<< DO NOT EDIT 

#DO NOT EDIT >>> 


XD_C_STUB_OBJECTS=\ 
bp_stubs.o 
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Robot Visual Workshop (Moti T-client: file: Makefile (cont. 
#<<< DO NOT EDIT 


#DO NOT EDIT >>> 
XD_C_STUB_SOURCES=\ 
bp_ stubs.c 


#<<< DO NOT EDIT 


XD_ALL_C SOURCES=$(XD_C_PROGRAM_SOURCES) $(XD_C_SOURCES) 
$(XD_C STUB SOURCES) $(XD_C_FOR_UIL_PROGRAM_SOURCES) 
$(XD_C FOR _UIL_SOURCES) 


XD_ALL_CC SOURCES=$(XD_CC_PROGRAM_SOURCES) $(XD_CC_SOURCES) 
$(XD_ CC STUB _SOURCES) 


all: CHECKENV CHECKROOT $(XD_C_PROGRAMS) $(XD_CC_ PROGRAMS) 
$(XD_C_FOR_UIL_ PROGRAMS) $(XD_UIL_OBJECTS) 


depend: 
makedepend -- $(CFLAGS) $(CPPFLAGS) -- $(XD_ALL_C_SOURCES) 
makedepend -a -- $(CCFLAGS) $(CPPFLAGS) -- $(XD_ALL_ CC SOURCES) 


clean: 
rm -f $(XD_C_ PROGRAMS) $(XD_C_PROGRAM_OBJECTS) $(XD_C_OBJECTS) \ 
$(XD_CC_PROGRAMS) $(XD_CC_PROGRAM_ OBJECTS) $(XD_CC_OBJECTS) \ 
$(XD_C_STUB_OBJECTS) \ 
$(XD_CC_STUB_OBJECTS) \ 
$(XD_C_FOR_UIL_PROGRAMS) $(XD_C_FOR_UIL_PROGRAM_OBJECTS) 
$(XD_C_FOR_UIL_OBJECTS) \ 
$(XD_UIL_OBJECTS) 


CHECKENV: 
(atest -n "$(VISUROOT)" || (echo You must set \$$ VISUROOT in the makefile or in your shell 
environment, exit 1) 


CHECKROOT: 
(atest -d "$(XPCLASS)” || (echo \$$VISUROOT must point to a valid root directory; exit 1) 
(atest -d "§(VISUROOT)/make_ templates” || (echo \$$VISUROOT must point to a valid root 
directory; exit 1) 


#DO NOT EDIT >>> 
bp: client.o thl.o lander.o bp.o $(XD_C_OBJECTS) $(XD_C_STUB_OBJECTS) 
$(CC) -g $CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o bp client.o thl.o lander.o bp.o 
$(XD_C_OBJECTS) $(XD_C_STUB_OBJECTS) $(MOTIFLIBS) $(LDLIBS) 
#<<< DO NOT EDIT 


#DO NOT EDIT >>> 


bp.o: bp.c 
$(CC) -2 $(CFLAGS) $(CPPFLAGS) -c bp.c 


ve 


Robot Visual Workshop (Moti T-client: file: Makefile (cont. 
#<<< DO NOT EDIT 

#DO NOT EDIT >>> 

bp_stubs.o: bp_stubs.c 


$(CC) -g $(CFLAGS) $(CPPFLAGS) -c bp_stubs.c 
#<<< DO NOT EDIT 
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Robot Visual Workshop (Moti I-client: file: bp_stubs.c 


/[* 
** Generated by WorkShop Visual 
ae 


/* 

** WorkShop Visual-generated prelude. 

** T)o not edit lines before "End of WorkShop Visual generated prelude" 
** Lines beginning ** WorkShop Visual Stub indicate a stub 


** which will not be output on re-generation 
ba 


/* 
**LIBS: -[Xm -lXxt -1X11 
ss 


#include <X11/Xatom.h> 
#include <X11/Intrinsic.h> 
#include <X11/Shell.h> 


#include <Xm/Xm.h> 
#include <Xm/DrawingA.h> 
#include <Xm/PushB.h> 


#include "bp.h" 


extern void XDmanage_link ( Widget w, XtPointer client_data, XtPointer call_ data ); 
extern void XDunmanage_link ( Widget w, XtPointer client_data, XtPointer call_data ); 
extern void XDpopup link ( Widget w, XtPointer client_data, XtPointer call_ data ); 
extern void XDpopdown_link ( Widget w, XtPointer client_data, XtPointer call_ data ); 
extern void XDmap_link ( Widget w, XtPointer client_data, XtPointer call_ data ); 
extern void XDunmap_link ( Widget w, XtPointer client_data, XtPointer call_data ); 
exter void XDenable_link ( Widget w, XtPointer client_data, XtPointer call_data ); 
extern void XDdisable_link ( Widget w, XtPounter client_data, XtPointer call data ); 


/* End of WorkShop Visual generated prelude */ 


se 


** WorkShop Visual Stub mybrucecallback 


oe; 
é 


void mybrucecallback( Widget w, XtPointer client_data, XtPointer xt_call_ data) 


Static int firsttime = 1; 


XmPushButtonCallbackStruct *call_ data = (XmPushButtonCallbackStruct *) xt_call_ data ; 
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Robot Visual Workshop (Moti J-client: file: bp_stubs.c (cont. 
printf("B1\n"); 


if(firsttrme) 

{ 

oldmain(); 
firsttime = 0; 


} 
send_data(1000,1000); 


/* 
** WorkShop Visual Stub bruce_drawing callback_resize 
ad | 


void bruce_drawing_callback_resize(Widget w, XtPointer client_data, XtPointer xt_call_data) 


GC ge; 
static int firsttime = 1; 


XmDrawingAreaCallbackStruct *call_ data = (XmDrawingAreaCallbackStruct *) xt_call_data ; 
printf("B2\n"); 


if(! firsttime) 
setup_image(w); 
drawback(); 

} 


firsttime = 0; 


[° 


°* WorkShop Visual Stub bruce_drawing_callback_input 
| 


void bruce_drawing_callback_input(Widget w, XtPointer client_data, XtPointer xt_call_data) 
GC gc; 


XmDrawingAreaCallbackStruct *call_ data = (XmDrawingAreaCallbackStruct *) xt_call_data ; 
pnntf("B3\n"); 


25 


Robot Visual Workshop (Moti T-client: file: bp.res 


! Generated by WorkShop Visual 


! bp_ shell 
! messageBox1 


! bruce_ button 
XApplication*bruce_button.labelString: Restart 


! bruce_ drawing 
XApplication*bruce_drawing.foreground: SlateGrey 
XApplication*bruce_drawing.background: GhostWhite 
XApplication*bruce_drawing.marginWidth: 400 
XApplication* bruce_drawing.marginHeight: 400 


' cascadel 
XApplication*cascadel .labelString: File 


! button! 
XApplication* button! .labelString: Open 


' button4 
XApplication* button4.labelString: Exit 


' cascade2 
XApplication*cascade2.labelString: Edit 
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Robot Visual Workshop (Moti T-client: file: bp.xd 


module 'XApplication’ 
version = 43; 
applicationName = 'XApplication’; 
generateNameC = * 'bp.c’; 
generateNameCMainProgram = * ‘bp.c’; 
generateNameStubs = * 'bp_stubs.c’; 
generateNameExtems = * ‘bp.h'; 
generateNameResDB = * 'bp.res’; 
generateNameCPixmaps = * ‘bp_pixmaps.h’; 
generateCHeaderFile = 'bp.h'; 
generateNameMakefile = ‘Makefile’; 
generateMask = 12; 
useMask = 1; 
ansiC = 1; 
generateNewMakefile = 1; 
generateMakeTemplate = 0; 
useCPixmaps = 0; 
useUILPixmaps = 0; 
useCHeaders = 1; 
useCUILHeaders = 0; 
CPPFlavour = 0; 
useCPPHeaders = 0; 
useCPPHeadersMFCWindows = 0; 
useCPPHeadersMFCMotif = 0; 
object ‘bp shell’ : XmDialogShell { 
arguments { 
lastGenName = 'bp shell’; 
createPreludeStatus = 2; 
preInstantiation = ‘void create_bp_ shell (Display *display, char *app_name, int app_argc, char 
**app_argy) 
XmNallowShellResize = true; 
AmNpnmary = 1; 
ie 
object 'l' : XmMessageTemplate { 
arguments { 
lastGenName = 'messageBox!'; 
XmNautoUnmanage = false; 
AmNdialogT ype = 0; 
}, 
object ‘1°: XmSeparator GADGET { 
arguments { 
name = ‘Separator’; 
lastGenName = ‘separator |'; 
); 
. 
object ‘bruce_button' : XmPushButton { 
arguments { 
lastGenName = ‘bruce_ button’; 
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obot Visual Workshop (Moti T-client: 


XmNlabelString = ‘Restart’; 

He 

callbacks { 

XmNactivateCallback = ' 
mybrucecallback( ) 


> 


iE 
He 


object '2': XmPushButton { 
arguments { 
lastGenName = 'button2'; 
}s 
; 
object '3' : XmPushButton { 
arguments { 
lastGenName = ‘button3'; 
; 
Ne 
object ‘bruce_drawing' : XmDrawingArea { 
arguments { 
was_selected = true; 
lastGenName = ‘bruce_ drawing’; 
generateResName = true; 
XmNforeground = * color('SlateGrey’); 
XmNbackground = * color(‘'GhostWhite'); 
XmNmarginWidth = * 400; 
XmNmarginHeight = * 400; 
; 
callbacks { 
XmNinputCallback =' 
bruce_drawing_callback_inputt( ) 
XmNresizeCallback =' 
bruce_drawing_ callback_resize( ) 


, 
, 


He 

object ‘]': XmMenuBar { 
arguments { 
lastGenName = 'menuBarl'; 
ie 

object 'l' : XmCascadeButton { 
arguments { 
lastGenName = 'cascadel’; 
AmNlabelStning = ‘File’; 
ts 

object 'l': XmPulldownMenu { 
arguments { 
lastGenName = ‘menu I'; 


Ve 
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ile: bp.xd (cont. 


Robot Visual Workshop (Moti 


object 'l': XmPushButton { 
arguments { 
lastGenName = ‘button’; 
XmNlabelString = ‘Open’; 


}; 

}; 

object '4': XmPushButton { 
arguments { 
lastGenName = 'button4'; 
XmNlabelString = 'Exit’; 
}; 

}; 

}; 

Is 

object '2' : XmCascadeButton { 
arguments { 
lastGenName = 'cascade2’; 
XmNlabelStnng = ‘Edit’; 
We 

object '2': XmPulldownMenu { 
arguments { 
lastGenName = 'menu2'; 
if 

b; 

iE 

i 

end module; 


7-client: file: bp.xd. (cont. 
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Robot Visual Workshop (Moti T-client: file: client.c 


[REPORTER EERE SS TEER EE 


* File: client.c 


Chent.c 1s used to start the socket connection for the GUI-client. It 
communicates with the server. If communication is disrupted, 
it is re-started. Data is sent and received. Communication is hard coded to 
a predefined port number. The server name 1s also hard-wired. 
This is just a prototype 1mplementation. A better method for 
doing for synchronizing the passing of data should be established. 


i@ 


* C/C++ version 
e 


* Date: 8/97 


* Compiler: gcc or Sun Compiler 
ada dndiada dada dadindndadadndndiitaitaitaitailaitaitileilaiteitadiaslailailaitailadledladtesdadtniiiedtaiteadlesbaititiaaiealastedaaadlalited | 


#include <stdio.h> 
#include <fcntl.h> 
Rinclude <sys/ioctl.h> 
Hinclude <sys/types.h> 
Hinclude <sys/socket.h> 
#include <netinet/in.h> 
Hinclude <netdb.h> 
#include <ermo.h> 
#include <signal.h> 
#include “global.h” 


int inet(); 

void catchkill(): 
intint. chent; 
extem int ermo; 


FILE *fsock, 


Int pix pry; 
int gbNeedToStan = 0; 


struct data sendmessage; 
struct data recmessage; 


[SP FSSSSSSH SS SHSSSTSESSESSSSSSESSSSESEHESHSESESERS 


Function: send_data 
Arguments: int x, new x location for robot 


inty, new y location for robot 
Retum: none 


Purpose: Used to request new x,y locations for robot. 
OS SSS SOOO ESSOSSOOOOOOHSOSOOHOHOOHOOHOH SE SES / 


void send_data(int x, int y) 
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Robot Visual Workshop (Moti T-client: file: client.c (cont. 


{ 
gbNeedToStart = 1; 
ZX = X; 
gly = y; 

} 


[96 0 0 III 


Function clhient_main 
Arguments: int *x, int *y; 
Return: none 
Purpose: Make connection to server, and it will return 
ix and 1y 1f data 1s sent from the server. 
ee ee ee SLEEK TEETER EE EEE SYS ERK EH KE KF / 
void client_main(int *1x, int *iy) 
int 11; 
int ret; 


ret = sock_data("pegasi.nosc.mil"); 
if(ret < 0) 
printf("could not write to socket\n"); 


*ix = (float)recmessage.ix; 
*iy = (float)recmessage.iy; 


[PS SSSSSSSOSSSOSSOO SESE SH SHHEKKKKSKKS KEKE SEKORKS 


Function sock data 
Arguments: char traffic_host (name of host to connect to) 
Return: int ( -] if fails ) 
Purpose: Starts the socket connection, functions 
called:(open, tnet_chient, inet) 
ee ee eS OSS SSS SOSCC SESS ESET SSE SESS SSS S / 
sock data(traffic_host1) 
void char °traffic_host1; 
Static int ret] = 0; 
static intsock1; /* inet socket file descriptor */ 
static char unix_read{[READ_ SIZE}; /* array used to read message */ 
static char old_parsel[READ_ SIZE]; /* array to hold partial message */ 


sgnal(S1GPIPE,catchkill); 


while(ret] == 0) 
{ 
sock] = inet_chient(traffic_host1); 
fsock = fdopen(sock1,"w"); 
if(sock1) 
ig il 
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Robot Visual Workshop (Moti T-client: file: client.c (cont. 


if(ret1) 
ret] = inet(sock1); /* inet socket */ 
if(ret] == 0) 
return(-1); 
else 
return(1); 


Daa Sa Si Sa Si Sea Si Sia SS dh dt Set Sd Sa Sool So Sun duced diac death tA Sh 


Function inet_client 
Arguments: char traffic_host (name of server to connect to 
Return: int 


Purpose: Continues setup of socket. 
RESET ET ee ee Te Ee 


inet_client(traffic_host) 


{ 


char *traffic_host; 


struct sockaddr in myserver, from; 
int length = sizeof(from); 

struct hostent *hp; 

struct servent *sp; 

int pid; 

int ret; 

int sock; 


signal(SIGPIPE,catchkill); 


if((sock = socket(AF_INET, SOCK_STREAM, 0)) < 0) { 
perror{“could not make socket\n"); 
exit(-1); 


if((hp = gethostbyname(traffic_host)) == NULL) { 
perror(traffic_host); 
exit(-1); 
myserver.sin_port = 4141; /* Hard coded, should open services files */ 
beopy(hp->h_addr, &myserver.sin_addr.s_addr, hp->h_length); 
myserver.sin_ family = AF_INET; 


if{((ret = connect(sock, &myserver, sizeof(myserver))) >= 0) { 
printf(“could make connection \n"); 
return(sock); 
pnntf("could NOT make connection \n"); 
Sleep(1); 
close(sock); 
retumn(0); 
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Robot Visual Workshop (Moti T-client: file: client.c (cont. 


} 


LXer eee EEE RERE EES EEE LEAKE ERE 
Function inet 
Arguments: int sock (sock file descriptor) 
Return: int 
Purpose: Reads/Writes on socket 
ere eee KKK LEER KE EEK ERE ES ETE & / 
inet(sock) 
int sock; 
int ret; 
int bytes; 
char strg[ 100}; 


printf("before Read\n"); 
read(sock,&recmessage,sizeof(recmessage)); 
printf("After Read\n"); 
if(recmessage.ir == 1) 
{ 
if(gbNeedToStart) 
{ 
sendmessage.1r = 1; 
sendmessage.1x = 21x; 
sendmessage.iy = giy; 


strg[0] = 1; 
} 
else 

{ 
sendmessage.i = 0; 
sendmessage.ix = 0; 
sendmessage.iy = 0; 
strg[0) = 65; 

else 


{ 
sendmessage.iur = 0; 
sendmessage.ix = 0; 
sendmessage.ty = 0; 
strg[0} = 65; 
if(sock > 0) 
if{ret=write(sock, strg. 1)<0) 
{ 
perror("error in write to sock”); 
close(sock); 
retum(0); /* socket write failed retum 0 */ 
} 
if(sock > 0) 
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if(recmessage.ir = 1) 
if(gbNeedToStart) 


gbNeedToStart = 0; 
if(ret=write(sock, &sendmessage, sizeof(sendmessage))<0) 
{ 

perror("error in write to sock"); 

close(sock); 

return(0); /* socket write failed return 0 */ 


} 
} 


printf("After write\n"); 
fflush(fsock); 
returm(1); /* socket write worked return 1 */ 


} 


[PEER EERE EEE EERE EE EEE EE EEE EES EERE EEE EEE EEE EEE EE EE 


Function: catchkill 
Arguments: none 
Retum: void 


Purpose:. Catches unix signals. 
EERE ES EEE SS EREEE SERRE LESSEE E EE EES ET ETE TS 


void catchkill() 
{ 


} 


printf("WE caught a signal\n"); 


104 


Robot Visual Workshop (Moti T-client: file: global.h 


ee ee ee eee SEER EERE ERE ER EEE EEE AKA EE KK 


* File: global.h 
bs 


* Contains the structure that is used for passing data 


on the socket for the GUI-client. This structure is modified 


for each application. 
* 


* 

* C/C++ version 
ae 

* Date: 8/97 


eR REET RETR ECLA T ELEC AEE REALE RE ELE ELEC RAREEREREKE & / 
Struct data 

int 1x; 

int 1y; 

int ir; 


i 
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Robot Visual Workshop (Moti T-client: file: lander.c 


[RR FOI I I ITO I I I IO I TI IO IIIT CITC IO IR I I OIC RC A 


* File: lander.c 

Xk 

* lander.c does simple X-window drawing for the Visual Workshop (Motif) 
* GUI-client. 


od 


* C/C++ version 
* 


* Date: 8/97 


FEEEEEEEEEE ETERS EEO ES Te ee ee 


#include <X11/Xatom.h> 
#include <X11/Intrinsic.h> 
#include <X11/Shell.h> 


#include <Xm/Xm.h> 
#include <Xm/DrawingA.h> 
#include <Xm/PushB.h> 


#include "bp.h" 


Window gwindow; 
Display *gdisplay = NULL; 


[OR OKSKOKKS OKOKER A RRR ERAKR KAKA KAR HERE RAK HS AM HK HK KH 


Function : drawline 

Arguments: int x, int y, int x2, int y2 

Return: void 

Purpose:. Draws a line from x,y to x2,y2 in the graphics window. 
TETOOOCOREL SORTER EE TREE EATS ETE TT TOT 
void drawline(int x,int y,int x2,1nt y2) 

{ 


GC gC; 
Display *display; 
Window x1d; 


int 11; 

xid = gwindow, 

display = gdisplay; 

gc = DefaultGC(display,DefaultScreen(display)); 


XDrawLine(display,xid,gc.x,y,x2,y2); 
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obot Visual Workshop (Moti T-client: file: lander.c (cont. 


[78 FOG © Ae eH He Ae He 2 Ae He He He He Ae He ee he ee ee 2 he 2 he ee 8 2 he 2 ie ae 2 ae 2 ak 2 2 


Function : drawcircle 
Arguments: int x, y location of circle 
int width 
int height 
Return: void 
Purpose:. Draw a circle a x,y with width and height. 
eee ee ee EWES E EEE EEE ERE ERE EN ERE KEE EK / 
void drawcircle(int x,int y,int width,int height) 
{ 
GC PC: 
Display * display; 
Window xid; 
int 11; 


xid = gwindow; 
display = gdisplay; 
gc = DefaultGC(display, DefaultScreen(display)); 


XDrawArc(display,xid,gc,x,y,width,height,0,64*360); 


[PSSSSSS SH SSSSSSSS SSS SKSKEK SEEKS SKK SS KS ESSER KSSH SKSERE 


Function : setup_image 
Arguments: Wiget w 
Retum: void 
Purpose:. Gets display attributes from a widget. 
FOSS SSSSSSSSSSS SHS SH SEES SSS SESS SE SESS SSH SE SKESKSE SES KS SS & / 
void image( Widget w) 
gdisplay = XtDisplay(w); 
gwindow = XtWindow(w); 
; 


[PSCSSSHSSSS SSE SS SSSSSSTSSKSSSSSHESSESSESSSHE SSS SSSSS SHS 


Function : do_image 
Arguments: int x,y 
Return: int (< 0 if error) 
Purpose: Draw the robot at x,y 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSES ESE S SS SSSH SS / 
void do_image(int x,int y) 
{ 
Static int oldx = 0; 
Static int oldy = 0; 


if{x == 0) 
return(0); 
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Robot Visual Workshop (Moti T-client: file: lander.c (cont. 


if(gdisplay —= NULL) 
return(-1); 


x = x/5 + 200; 

y = y/5 + 200; 

drawback(); 

clearrect(oldx-11, oldy-11, 22, 22); 
drawlander(x,y); 

drawback(); 


oldx = x; 
oldy = y; 
[REEEESESEREEKEREREEREREEAA EEE EREEKE EAE KEREREKEREAEES 


Function : clearrect 
Arguments: int x,y,width,height 


Retum: void 
Purpose: Clears the default display window at position x,y,width, 
height. 


CEES SEES ES ERS ERASER EERE EES ET ee 


void clearrect(int x, int y, int w, int h) 
{ 

Window xid; 

Display *display; 


xid = gwindow; 
display = gdisplay; 
XClearArea(display,xid,x,y,w,h,0); 
} 


[FEES KEKE ERE EEE EERE EEE S & 


Function : clear 
Arguments: none 
Retum: void 
Purpose:. 
aad a i ih lid cd nla dls dina lag Sond waddle ca Sadia din iat cats nih whintincy) 
void clear({) 
Window xid; 
Display *display; 


xid = gwindow; 


display = gdisplay; 
XClearW indow(display,xid); 
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Robot Visual Workshop (Moti T-client: file: lander.c (cont. 


EEE ETE EEE EEE EEE EE EE ER RE 


Function draw_lander 

Arguments: int x,y 

Return: void 

Purpose:. Draw the actual lander. 

2B ee He ee Ae AE eA ae ae 2 Ae He eae ee 26 he he he ae 20 fe ae 2 fe fe 2 2h 2 ie ae 2 Ae ae 2 ie ee ie ie ae 2 ee ae 2 2 / 


void drawlander(int x, int y) 

{ 
drawcircle(x-5,y-5,10,10); 
drawline(x,y-8,x,y+8); 
drawline(x-8,y,x+8,y); 

} 


ee ef Se A ERE EE A OO ee ee OE ee ae Oe Oe ek 


Function : drawback 
Arguments: none 


Return: void 


Purpose: Draw the screen background. 
er Oe eR EO A EA eA A Oe ee Oe eR ee Oe ek / 


void drawback() 


{ 
drawcircle(0,0,400,400); 


drawcircle(196,196,8,8); 
drawcircle(198,198,4,4); 
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Robot Visual Worksh Moti T-client; file: thl.c 


[ES EEST SESEET ENOL EEE EER EERO EEN CECE EEE 


* Filesstnlc 

* 

* thl.c is used to create a thread of execution to read 

* on the socket, and register repaint events, for the GUI-client. 
* 


* C/C++ version 
* 


* Date: 8/97 


EEEEEES OSES STER EEE EEE EE EES EEE ESE SS TS ee 


#include <stdio.h> 
#include <math.h> 
#include <thread.h> 
#include <synch.h> 
#include <ermo.h> 


thread_t twniter; 


int x = 0; 
int y = 0; 


[RUE SO TSR ESAS eS See eee eee Oe ee eee ee 


Function: add 

Arguments: none 

Retum: none 

Purpose: Add is called by the second. Add never returns. Add is 
in an infinite loop that calls the socket function (client_main) 
to get data from the PSDL-server. 
The image is then drawn. 


li td ad odin i a aie dn lad od ladda ta dada da Soda dada doled dado Ich de sida dl 


void add() 
{ 
while(1) 
client_main(&x,&y); 
do_image(x,y); 
} 
void sub() 


{ 
fprintf(stderr,”Sub\n"); 
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Robot Visual Workshop (Moti T-client: file: thl.c (cont. 


ee OR ee AEE EEE EEA EAE SEE REE KERR E REE ERED KEE 


Function : oldmain 
Arguments: none 


Retum: void 
Purpose: Starts the second thread. Add will be called by the 


second thread. 


SHESCE SHES SSS EHK KKK KKK KKK KKER KER KEE KE KER KEE KEKE KE / 


void oldmain() 
{ 


int i 


thr setconcurrency(2); 
thr_create(e(NULL,NULL,(VPTR)add,NULL,THR_NEW_LWP,&twriter); 
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